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ABSTRACT 

INVERT  is  a FORTRAN  computer  program  designed  to  study  the  feasibility 
of  obtaining  electron  density  distributions  of  the  D-region  of  the  ionosphere. 
These  electron  density  profileswould  be  derived  from  measurements  of  ionospheric 
reflection  coefficients.  The  radio  propagation  frequencies  would  be  limited 
to  the  VLF  band,  particularly  3-20  kHz.  This  report  contains  a discussion  of 
the  analytical  approach  taken  in  INVERT,  a FORTRAN  listing  of  the  program, 
instructions  for  using  the  program  and  some  sample  calculations  using  simulated 
data.  The  program  has  not  been  used  with  real  data. 


I.  INTRODUCTION 

The  nature  of  the  lowest  ionoichere,  the  D-region,  has  been  the 
objective  of  Government  sponsored  research  for  more  than  a decade.  The 
principal  interest  stems  from  the  global  requirement  for  reliable  strategic 
communications  at  very  low  radio  frequencies  (VLF  3-30  kHz). 

Numerical  methods  are  presently  available  for  calculating  VLF  systems 
performance  capabilities  if  the  height  distributions  of  the  electron  density 
and  the  collision  frequency  of  the  lower  ionosphere  are  known.  The  problem 
is,  however,  to  develop  a procedure  that  will  result  in  a reasonable  repre- 
sentation of  these  required  profiles. 

Radio  sounding  at  VLF  is  an  cften-used  method  for  exploring  the  D-region. 
This  region  is  considered  to  range  from  50  km  to  about  100  km  above  the  earth's 
surface.  Because  of  the  low-electron  densities  characteristic  of  these 
ionospheric  heights,  usual  methods,  such  as  high  frequency  (hf)  ionosounds 
provide  no  useful  information.  For  this  same  reason,  data  from  rocket  sound- 
ings also  provide  little  detail  at  these  heights. 

The  measured  data  parameters,  acquired  from  VLF  ionospheric  sounders, 
are  the  ionospheric  reflection  coefficients.  With  special  sounding  techniques, 
such  as  described  in  reference  1,  it  is  possible  to  obtain  reflection  coeffi- 
cient data  simultaneously  at  many  frequencies  over  the  VLF  band.  Also,  since 
the  theory  of  radio  wave  reflection  from  the  ionosphere  is  well  developed, 
reference  2,  it  is  possible  to  calculate  the  characteristic  reflection 
coefficients  of  radio  waves  propagated  in  models  of  the  ionosphere.  The  goal 
has  been  to  obtain  the  height  distributions  of  the  ionospheric  factors  by  the 
simultaneous  application  of  these  two  procedures,  (i.e.  sounder  measurements 
and  theoretical  calculations).  Such  an  approach  would  be  known  as  profile 
Inversion. 


Early  work  in  ionospheric  inversion  used  trial -and-error  techniques  to 
deduce  profiles.  That  is,  values  for  the  ionospheric  properties  were  assumed 


and  the  ionospheric  reflection  coefficients  calculated;  these  results  were  then 
compared  with  experimental  values,  and  if  the  agreement  was  not  satisfactory, 
the  calculations  were  performed  again  with  different  values  used  for  the 
ionospheric  properties.  The  goodness  of  fit  between  calculations  and  experi- 
mental data  were  determined  by  a subjective  estimate  of  the  investigator. 

The  approach  taken  in  the  INVERT  computer  program  is  to  attempt  an 
analytical  determination  of  the  ionospheric  profiles  without  the  use  of  trial- 
and-error.  The  procedure  begins  with  ionospheric  reflection  coefficient  data 
and  seeks  to  deduce  the  required  electron  density  profile  by  finding  the  rate 
of  change  of  the  reflection  coefficients  with  respect  to  changes  at  each  point 
in  the  profile.  Ideally  the  end  result  of  the  INVERT  inversion  procedure 
will  be  a profile  which  contains  all  the  detail  justified  by  the  data,  but 
which  does  not  contain  spurious  data  which  would  represent  fitting  to  error 
in  the  data. 

The  fundamental  ideas  of  the  INVERT  inversion  technique  have  been 
previously  described  in  reference  3,  For  this  reason,  several  references 
will  be  made  to  that  report  rather  than  to  reproduce  the  material  here. 

This  report  is  divided  into  six  major  sections  other  than  the  intro- 
duction. Section  II  presents  a discussion  of  the  theory  used  in  the  inversion 
process.  Section  III  traces  the  execution  of  the  INVERT  procedure.  Section 
IV  gives  a description  of  the  INVERT  computer  program.  Section  V discusses 
execution  of  INVERT  for  simulated  data  while  Section  VI  is  for  measured 
data.  The  Appendices  A,  B,  and  C give  FORTRAN  listings  of  the  computer 
programs . 
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The  notation  used  throughout  this  report  is  as  described  below,  where 
in  general  the  subscript  convention  used  is  that  j and  j'  refer  to  the  "n" 
layers  of  the  electron  density  profile  while  i and  i'  refer  to  the  "tn"  data 
parameters.  Note  that  irwst  equations  are  written  so  that  subscripted  varia- 
bles are  thought  of  as  matrices  or  vectors. 

The  notation  is: 

Square  matrix: 


Rectangular  matrix: 


(C) 


(D) 


I 
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II.  INVERSION  THEORY 


I 


The  Inversion  problem  is  to  begin  with  reflection  coefficient  data  and 
deduce  the  responsible  electron  density  profile. 

A.  Reflection  Coefficient  Data 

Very  low  frequency  (VLF)  reflection  coefficient  data  may  be  obtained 
from  steep  incidence  sounders.  Reflection  of  a VLF  wave  at  near-vertical  incidence 
is  described  by  the  reflection  matrix: 


where  the  first  subscript  refers  to  the  polarization  of  the  up  going  wave  with 
respect  to  the  plane  of  incidence  and  the  second  subscript  refers  to  the 
polarization  of  the  down  coming  wave.  Note  that  the  matrix  elements  are 
complex  numbers. 

The  reflection  coefficient  ratio  used  in  the  inversion  procedure  is 
given  in  equation  (66)  of  reference  3 as: 


- iRi(e)  + j xR||(9) 

- xRj^(e)  - j ^R||(e) 


where  i = 1 , . . . m 


The  terms  of  equation  (2)  are  further  identified  as: 

0)^  --  The  transmitted  frequency, 

m --  The  total  number  of  transmitted  frequencies. 

0 — The  incident  angle  of  the  radio  wave  on  the  ionosphere, 

j - 

R(u)^)  — The  value  of  the  reflection  ratio  at  the  i-th  frequency  as 
obtained  from  data. 

The  reflection  coefficients  of  equations  (1)  and  (2)  are  functions  of  the 
earth's  magnetic  field.  As  the  sounder  site  approaches  the  geomagnetic 
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equator,  the  cross  term  (i.e.  iRj  tends  to  zero  and  thus  the  reflection 
ratio,  R((u^),  becomes  equal  to  one.  When  this  situation  occurs,  the  inversion 
technique  yields  no  information,  ‘'’he  most  useful  data  for  determining 
profiles  is  obtained,  therefore,  at  locations  with  large  magnetic  dip  angles 
(i.e.  the  magnetic  poles). 

B.  Parameterization  of  the  Electron  Density  Profile 

The  procedure  is  to  represent  the  electron  density  profile  by  a 
series  of  short  exponential  segments.  The  common  logs  of  the  electron 
densities  at  the  heights,  z.,  where  the  segments  join,  are  taken  to  be  the 

J 

unknown  parameters  of  the  profile  and  are  denoted  by: 


(3) 


where  j = 1,  2,  ...  n. 

and  where  is  the  electron  density  (electrons/cc)  at  height  z (km). 

C.  Computed  Reflection  Coefficients 

The  ionospheric  reflection  coefficients  given  in  equation  (1)  may  be 
computed  for  any  given  electron  density  profile  by  the  "full -wave"  method 
given  in  reference  4.  These  reflection  coefficients  are  the  result  of  the 
integration: 


■ /:  © ■■ 


(4) 


As  discussed  previously  for  measured  data,  a useful  representation 
of  the  computed  reflection  coefficient  is: 

•iRl(e)  + j iR„(0) 


r(a)^) 


• ^ 


iRi(e)  - j iR,|(0) 


1, 


(5) 


i = 1,  . . . m 
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In  this  instance  the  reflection  coefficients,  j^Rj^  and  are  computed  from 
the  integration  of  equation  (4)  and  thus  "rCu.)"  is  the  computed  value  of  the 
reflection  coefficient  parameter  at  the  i-th  frequency. 

D.  Fundamentals  of  the  Inversion  Procedure 

The  approach  taken  in  searching  for  a best-fit  electron  density 
profile  to  data  was  originally  presented  in  reference  5.  The  basic  require- 
ment is  that  the  profile  is  to  be  linear  (on  a log  scale)  unless  the  data 
gives  information  to  justify  a given  degree  of  detail.  To  carry  out  this 
approach,  two  functions  are  defined.  The  first  is  a measure  of  deviation  of 
computed  reflection  coefficients  from  measured  data,  defined  as; 

m 

-s 

i 

1 — I,  ...  m 


where 

m --is  the  total  number  of  propagation  frequencies. 

r.j  --  are  the  computed  values  of  the  reflection  coefficient  ratio 
from  equation  (5). 

R.j  --  are  the  "measured"  reflection  coefficients  in  the  form  of 
equation  (2). 

0^  --  are  the  uncertainties  in  the  "measured"  values.  These  are  also 
defined  as  the  "expected"  errors. 

The  second  function  is  a measure  of  detail,  or  curvature,  in  the 
profile  and  is  defined  as: 
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r 

' where  z Is  the  height  variable,  cir(z)  is  the  common  log  of  the  electron 

density  profile  at  height,  z,  and  the  integral  is  taken  over  the  range  of  the 
the  profile. 

Equation  (7)  defines  the  entire  profile  curve,  a(z).  In  practice 
a(z)  can  only  be  determined  at  a finite  number  of  points,  (“(zj)  = “j),  and 
therefore  the  form  of  the  profile  is  given  by  equation  (3).  For  simplicity 
it  will  be  assumed  that  the  a.'s  are  equally  spaced  at  intervals,  4z. 

The  second  derivative  at  z.  is  then  approximated  by: 

%l 


In  application,  the  curvature  function  "c"  of  equation  (7)  is 
expressed  in  terms  of  summation  over  profile  segments.  The  equation  becomes: 

n-1 

J=! 

, 

where  n is  the  number  of  points  a.. 

J 

The  expression  in  brackets  represents  the  second  derivative  at  height  z..  The 

3 

slab  summation  form  of  "c"  approaches  the  integral  of  equation  (7)  as  the 
slabs  are  made  sufficiently  thin. 

Equation  (9)  can  be  written  in  matrix  notation  as: 

j'->-  j-*- 

-{(Cj'j)  • i(“j) 
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(11) 


The  required  profile  is  sought  by  an  iterative  technique  in  which 
the  total  curvature  in  the  profile  is  allowed  to  increase  in  steps  to  improve 
the  fit  to  data.  Each  step  requires  a perturbation-type  solution  in  which 
the  full-wave  solution  of  reference  4 is  analytically  differentiated  with 
respect  to  perturbations  in  the  profile.  The  end  result  of  the  inversion 
procedure  is  a profile  which  contains  all  the  detail  justified  by  the  data, 
but  which  does  not  contain  spurious  detail  which  would  represent  fitting  to 
error  in  the  data.  There  should  be  an  optimum  trade-off  between  deviation  from 
data,  represented  by  the  value  of  s,  and  curvature  in  the  profile,  represented 
by  the  value  of  c.  The  trade-off  may  be  represented  by  the  condition: 


c + xs  ->■  min  (12) 


where  the  value  of  X must  be  chosen  for  the  optimum  condition. 

The  solution  to  equation  (12)  is  obtained  by  differentiating  with  respect  to 
Oj.  This  gives: 


Equation  (13)  can  be  re-written  t»s  derived  in  section  II-C  of 
reference  3)  as: 

K(x,r(io^).(aaj)  = Tlx.aJ.  r(a.^).  R(a,^))  (14) 

where:  j = 1,  ...  n for  the  segments  of  the  electron  density  profile, 

and  where: 

K = The  coefficient  matrix,  and  is  a function  of  the  trade-off 
parameter,  "x";  and  also  a function  of  the  computed  iono- 
spheric reflection  coefficients  r((D^). 

T = A vector  which  is  a function  of  the  above  "X",  and  r.  It  is 
also  a function  of  the  measured  ionospheric  reflection 
coefficients,  R(a)^),  and  a function  of  the  previous  electron 
density  profile,  a.°. 

V 

(aoj)  = A vector  which  represents  the  modifications  to  be  added  to 

J 

each  previous  electron  density  profile  during  each  step  of 
the  iteration  scheme. 

(1)^  = The  propagation  frequency,  i=l,...m. 

The  solutions  to  equation  (14)  are  obtained  by  an  iterative  proce- 
dure. First,  an  initial  profile,  (j=l,...n)  is  chosen  and  a value  is 
assigned  to  the  trade-off  parameter,  "x".  These  values,  along  with  functions 
of  the  full-wave  calculations,  r(a)^),  and  data  values,  R(a)^),  are  substituted 
and  a solution  (^j)  is  obtained  as: 

(A^j)  « (k‘^)  • T (15) 

These  values  of  the  (Aaj)'s  are  added  to  the  (“p's  to  get  a new  profile 
(“J-.....-  sequence  then  continues  with  assuming  the  role  of  (oj), 

J n6w  j ncw  j 
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and  a new  value  assigned  to  "x".  This  leads  to  a new  solution  of  (ao.)  and 
thus  to  a new  electron  density  profile  given  by  the  relation: 


previous 


+ 


(16) 


E.  Assumptions  Applied  in  the  Inversion  Procedure 

In  the  inversion  procedure  several  assumptions  concerning  the 
ionospheric  parameters  are  made.  In  particular  all  parameters  will  be  con- 
sidered to  be  known  except  the  electron  density  profile,  which  will  be 
unknown,  and  is  to  be  found  from  the  data.  The  geomagnetic  field 
parameters  will  be  taken  to  be  known,  and  the  magnetic  azimuth  will  be 
restricted  to  be  either  90®  or  270®.  As  is  the  usual  case  at  VLF,  ions  are 
considered  to  have  negligible  effect  on  propagation  and  are  omitted  from  the 
model.  The  collision  frequency  profile  is  taken  to  be  known  and  is  con- 
strained to  be  of  exponential  form: 

V = Vq  exp  (-az)  (17) 

Additional  assumptions  (i.e.  constraints)  on  the  form  of  the  desired 
electron  density  profile  are  listed  below  and  are  illustrated  in  figure  1 
where  the  electron  density  (N^)  is  shown  as  a function  of  ionospheric  height 

C 

in  terms  of  logjQ  N^. 

(1)  "Stop"  constraints  are  introduced  at  both  the  top  and  bottom  of 
the  electron  density  profile.  These  correspond  to  limiting  values  of  electron 
density  which  the  profile  may  assume  at  these  heights.  At  the  top  of  the 
profile  the  "stop"  defines  the  minimum  value  of  electron  density  which  the 
profile  may  assume.  At  the  bottom,  the  "stop"  defines  the  maximum  value  for 
that  height. 
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a(z)  = LogjQ  N — ► 

Figure  1.  Segmented  Electron  Density  Profile, 
a(Zj)'s  Showing  Constraints. 


(2)  It  is  assumed  that  there  are  no  electrons  below  the  chosen 
lowest  height  of  the  profile.  Above  the  chosen  top  height  of  the  profile  the 
electron  density  is  assumed  to  be  of  constant  value  equal  to  the  electron 
density  at  the  chosen  top  height.  This  latter  property  is  usually  referred 
to  as  a semi -infinite  medium. 

(3)  The  profile  is  constrained  to  be  reasonably  smooth  but  other- 
wise consistent  with  the  reflection  coefficient  data.  Note  that  this  implies 
that  the  profile  approaches  a slope  of  (dN/dz)  = 0 near  the  top  height  which 
is  just  below  the  semi-infinite  medium. 

Inequalities  are  used  as  constraints  on  the  end  points  of  the 
o(z)  profile.  At  the  top  of  the  profile  the  electron  density  Is  constrained 
to  be  at  least  as  great  as  a chosen  fixed  value.  At  the  bottom  height  of  the 


I 
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profile,  the  electron  density  is  constrained  to  be  no  greater  than  a chosen 
fixed  value.  Thus: 


»(a)  = «Uj)  > 

.(b)  . .(z„)  5 


In  addition,  in  order  to  ensure  a continuous  slope,  (dN^/dz),  leading  upward 
to  the  semi-infinite  medium,  the  slope  at  the  top  of  the  profile  (z  = a = Zj) 
is  constrained  to  approach  that  of  the  semi-infinite  medium.  In  terms  of  the 
segmented  q;(z)  curve,  that  is,  the  segmented  electron  density  profile,  this  is 
implemented  by  adding  the  term: 

(®2  ” (az)  (19, a) 


to  the  summation  representing  the  curvature  function.  That  is,  "c"  is  now 
defined  as: 


c = 


2a . + 
J 


(az) 


-3 


(19, b) 


Compare  this  result  to  equation  (9). 

With  these  sets  of  constraints,  the  equation  to  be  solved  is  a modified 
form  of  equation  (13).  In  particular  the  matrix: 
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Is  added  to  the  unmodified  C matrix  of  equation  (11).  That  is,  the  original 
C matrix  terms  are  modified  to  be: 


Cjj  = 1 + (1  + p.p)  = 2 + 


= -2  + (-1)  = -3 

C21  = -2  + (-1)  = -3 


C22  = 5 + (+1) 


C = 1 + 
nn 


The  new  matrix  is  defined  as 


Pb 


= 1 + 


Pb  J 


-3  6-41 


new 


1-46-41 

N \ \ \ \ 

N \ \ \ \ 

\ \ \ S \ 

\ \ \ \ \ 

\ \ \ \ \ 

O '1  -4  *6  '-4  '1 


O 


1-4  5-2 

1 -2  (l+Pg)  I 


A vector,  V,  is  also  defined  to  be: 


V 

+ \ J newy 


/ Pt  “Top  Stop 


\ 


Pb  “Bot  stop 


and  is  a consequence  of  the  added  constraints. 
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(21) 


(22) 


(23) 


The  values  of  the  inequalities  of  equation  (18)  are  defined  as  follows: 
(a)  = 0,  if  in  the  solution  for  the  (Aa.)'s  of  equation  (15),  the 

si 

top  end  of  the  profile  is  inclined  to  move  to  the  right 
p-j.  ' of  the  stop. 

= a very  large  positive  value  if  the  top  end  of  the  profile 
is  inclined  to  move  to  the  left  of  the  stop. 


(b)  '^  = 0 if,  in  the  solution  for  the  (Aaj)'s  of  equation  (15)  the 

bottom  end  of  the  profile  is  inclined  to  move  to  the  left 
Pg  . of  the  stop. 

= a very  large  value  if  the  bottom  end  of  the  profile  is 
inclined  to  move  to  the  right  of  the  stop. 

F.  The  Complex  Reflection  Coefficient  Plane 

Calculation  performed  using  different  electron  density  profiles  will 
produce  different  values  for  the  set  of  reflection  coefficient  ratios,  r((o^)  . 

The  reflection  coefficient  ratio  values  are  illustrated  in  figure  2 
as  plotted  in  the  complex  R (or  r)  plane.  Here  the  frequency,  u , serves  as 
the  parametric  variable.  The  data  values,  R(id^.)  are  shown  in  comparison  to 
two  sets  of  r(w^)  values.  The  curve  [r((D)]j  results  from  applying  equation 
(4)  and  equation  (5)  to  a given  electron  density  profile.  The  curve  Irlw)]^ 
presents  the  results  obtained  from  a second  electron  density  profile.  It  is 
pointed  out,  that  because  of  the  constraints  placed  on  the  trial  electron 
electron  density  profiles,  not  all  forms  of  the  r{io)  curve  can  be  generated 
simply  by  varying  the  profile. 

The  problem  to  be  solved  with  the  inversion  procedure  is  to  find 
that  electron  density  profile,  which  when  used  in  the  full-wave  computation 
of  reflection  coefficients,  will  produce  a match  to  the  data,  R(u^). 

Such  a match  is  illustrated  in  figure  3.  Because  of  error  in  the  data 


i 
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and  because  of  the  constraints  put  on  the  ionospheric  model,  the  data  cannot 
be  matched  exactly. 

The  fact  that  an  attempt  is  made  to  match  the  curves  in  real  and 
imaginary  parts  of  R(u^)  and  r{a)^)  implies  that  the  spacing,  in  the  R-r  plane 
between  frequency  points  (w^.  and  etc.)  of  r(w^)  and  etc.,  must 

also  match  the  spacing  between  R(a)^)  and  R(a)^.^^),  etc. 

G.  The  Transformation  Functions,  g(w^)  and  G(a)^) 

In  order  to  make  convergence  of  equation  (14)  more  likely,  the 
following  function  of  the  ionospheric  reflection  coefficients  is  introduced. 
(See  the  discussion  on  pp  28  in  section  II-C  of  reference  3.)  Define: 


= r(a)j) 


i = 1,  . . . m 

where 

r.  is  given  by  equation  (5). 

(u  is  the  propagation  frequency  (kHz), 
m is  the  total  number  of  data  frequencies. 


Equation  (24)  may  also  be  written  as: 


(26) 


jnd 

where  (itg)  is  the  principal  part  of  the  phase  term  and  lies  in  the  interval 
- n < ^ TT  . 

The  value  of  n^  , in  the  phase  term,  is  chosen  for  each  frequency  so 

as  to  ensure  that  the  phase,  ())^.  , is  continuous  along  the  r(a))  curve. 

The  phase  angle  ((j>  ) may  also  be  written  as: 

9 i 

(Imag.  (dr/du).  \ 

Real  <dr/d„),'  ) 

The  definition  of  the  transformation  function,  as  given  by  equa- 
tion (25),  allows  for  a complete  definition  of  the  r(u))  curve  in  terms  of 
spacing  (i.e.,  |dr/daj|),  phase  (i.e.,  iji)  and  the  location  of  one  point  on  the 
r(u)  curve,  where  for  example  the  one  frequency  point  is  chosen  to  be  the  low- 
est frequency,  wj  . An  r(m)  curve  illustrating  the  "g"  transformation  is 
given  in  figure  4. 

The  transformation  function  for  the  data  values,  R(u.),  is  also 
introduced  as: 

Gj  = R((i)2) 

s = m, 

or 

- 1 (21, 

i =2,  ... 


+ j(^e) 


(28) 


I 
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Function,  g(ii)^)  = In  (dr/du)^  + 
(i.e..  Spacing  and  Phase). 


The  phase,  (4>p)  is  written  as: 
i 

(♦g>,  • (<‘g>,  ‘ 2 ("g',  ') 

and 


I 


'I 


i 


1 


/Imag.  (dR/du).  \ 

( Real  (dR/du>)^  / 

To  obtain  a match  between  an  r(u))  curve  and  the  data  curve  R(ijo)  , 
as  exemplified  in  figure  3,  the  required  r(w)  curve  may  need  to  be  completely 
reversed  from  the  r(ai)  curve  obtained  from  the  starting  solution  of  the  inver- 
sion scheme.  This  is  the  situation  portrayed  in  figure  2 where  the  [r(ta))]2 
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curve  i<;  considered  to  be  the  starting  r(a))  curve  and  the  data  is  given  by  the 
R(a)^)'s.  Since  the  lower  frequency  end  of  the  r(a))  curve,  (i.e.,  r(a)j)  ),  is 
ir.ore  stable  with  respect  to  small  changes  in  the  trial  electron  density  pro- 
files, it  is  likely  to  be  the  better  choice  for  the  end  about  which  the  required 
rotation,  (clockwise  or  counter-clockwise),  of  the  r{w)  curve  is  to  be 
carried  out. 

H.  Interpolation  in  the  R(a))  and  rM  Planes  to  Obtain  (dR/du)) 
and  (dr/d(;j) 

The  values  of  the  derivatives  (dR/du)  and  (dr/du)  needed  to  com- 
pute G(u)  and  g(u)  in  equations  (24)  and  (28)  are  derived  in  the  following 
sequence. 

The  set  of  transmitted  frequencies,  u^.  , (i  = 1,  ...  m)  is  assumed 
to  be  a subset  of  possible  frequencies,  u^j^  , (k  = 1,  ...  K).  "K  is  larger  than 
m.  A reflection  coefficient  ratio  (similar  to  r(u.)  ) will  be  denoted  for  the 
frequency  set,  uj^  , by  p(u|^)  . The  defining  equation  is: 


i-*- 


Where  the  p(u|^)'s  are  linear  combinations  of  the  R(u.)'s  with  coefficients 
(b|^  ^).  The  p(u|^)  values  are  obtained  by  interpolation  of  the  R(u^)  values 
and  equation  (31)  is  the  interpolation  equation.  The  (bj^  ^)  are  defined  in 
section  II-C  of  reference  3.  The  (bj^  ^)  are  not  functions  of  the  numerical 
values  of  the  R(u^)  but  depend  only  on  the  spacing  of  the  frequencies 
and  on  the  number  of  frequencies  m . At  any  frequency  value  where  u^  is 
equal  to  an  a)|^  , the  value  of  p(u|^)  will  be  equal  to  the  value  of  R((i)|)  . 
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Figure  5 shows  the  R-plane  representation  of  the  interpolated  values, 
and  the  data  value,  R(u)^). 

The  derivative  at  any  one  interpolation  point,  is  defined  in 
terms  of  the  change  in  value  of  p(u)  at  the  interpolation  points  preceding  and 
following  that  point.  That  is: 

/dp(u>)\  , (p(^kH)  - p(vi^) 

\ dll)  I 2 ' Am  ' 


where  Am  is  the  interpolation  increment  in  frequency. 

Using  equation  (31)  equation  (32)  is  also  written; 


= (b.xi  . - b,  , J R(a)J/2Aa 


p(ilii.) 


p(uj|^) 


/ 

m^]/ 


Figure  5.  R-Plane  Representation  of  Interpolated  Values 
of  p(u).)  and  Data  Values  R(u)j). 


and  in  matrix  notation 


k 


where 


;K>) 


At  the  data  frequencies,  , equation  (34)  simplifies  to: 


: on  = 1^- 


i'Rh) 


where  the  a.  matrix  is  obtained  from  the  3,,  .•  matrix  of  equation  (34)  by 
placing  only  those  rows  of  the  (3,,  .- ) matrix  which  correspond  to  w.  values  into 
row  positions  of  the  (3^^i)  matrix.  This  matrix  manipulation  is  further  dis- 
cussed in  section  IIl-H  of  reference  3. 

A similar  presentation,  to  that  above,  will  give  derivatives  of  the 
r(u))  curve.  The  interpolation  derivatives  will  be  given  as: 


= k ^k,i 


and  at  the  data  frequencies  w. 


= : Mi.i' 


l(r(«,)) 


I . Continuous  Phase  Terms,  and  j)Q,  in  the  r and  R Planes 

The  desired  result  of  the  inversion  scheme  is  to  obtain  a match  of  r(u)^.) 
values  to  R(a)^ ) values.  To  accomplish  this,  it  is  required  that  the  phase,  ((ig,  be 
continuous  along  the  r(a))  curve.  The  same  is  true  for  the  phase  (|)q  along  the  R(u))  curve. 


I 
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From  equation  (25)  the  g(a))  transformation  variable  may  be  written 
in  terms  of  the  interpolated  variables,  as: 


91,  = In 


do) 


(^J  ± 2 (n„) 


(38) 


and  from  equation  (28)  the  expression  for  G(a)) 


dp 


+ j ((l-g)^  ± 2(ng)^ 


(39) 


To  satisfy  the  matching  requirement  between  the  r(u)  and  R((d)  curves  the  values 

of  (n  ) and  (rf-)  must  be  chosen  for  each  frequency,  w.  , so  that  the  phases 
k ^ 

<<ig  and  (jg  are  continuous  along  the  r(a))  and  R((o)  curves.  To  insure  continuous 
changes  in  phase  along  the  curves  the  differences:  "'*’)<  1 | ®nd  j j 

must  be  small. 

The  smoothing  requirement  for  the  continuous  phase  along  the  r(u)) 
curve  leaves  the  value  of  (n  ) arbitrary  for  one  frequency,  e.g.  the  lowest 


frequency,  ui, , which  is  w,.  The  value  of  (n„)  is  then  chosen  so  as  to  cause 

^ k=3 

the  r(u»)  curve  to  rotate  in  the  desired  sense,  (i.e.  clockwise  or  counter  clock- 
wise) to  obtain  a match  to  the  R((ij)  data  curve.  The  values  of  the  phases 

('Pf.)  and  (((i  ) at  the  point  k=3  will  be  identified  as  ij>r,  (for  data  phase)  and 
k 3 k 

(for  computed  phase)  respectively. 

Figure  6 illustrates  some  possible  cases  for  the  phase  relations 

between  the  data  curve,  R((*)),  and  two  examples  of  computed  curves,  [r(u))].  and 

# A 

(1^(0)) I2-  The  phase  values  are  identified  as  the  direction  assumed  by  a vector 
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r,R  {Real}  ► 

Figure  6.  Examples  of  for  Data  Values,  R(a)),  and 
(|ij,  for  Computed  Values,  r(a)). 

originating  at  the  lowest  frequency  point,  r(wj)  (or  R(u)2))  directed  tangent 
to  the  r(aj)  (or  R(oj))  curve  as  the  curve  extends  toward  the  point  r[u>2)  (or 
R(a)2).  There  are  two  ways  that  the  [r(w)]j(or  [(the  r(w)]2)  curve  can  be 
transformed  to  match  the  R(a))  curve.  These  are  a clockwise  rotation  or  a 
counter-clockwise  rotation  of  the  r(w)  curve  about  the  point  r(a)j).  This 
rotation  is  accomplished  in  the  INVERT  computer  program  by  the  variable 
ROTATE.  A positive  value  assigned  to  ROTATE  results  in  a counter-clockwise 
rotation  while  a negative  value  gives  a clockwise  rotation.  Examples  of  the 
choices  of  values  for  ROTATE  are  presented  in  figure  7.  The  procedure  to  be 
used  in  executing  the  program  is  to  try  one  direction  of  rotation  and,  if  it 
does  not  prove  successful,  try  the  other  direction. 
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Counterclockwise  rotation  Clockwise  rotation 

for  the  curve  [r(w)]j  for  the  curve  [r(a))]^ 

toward  the  curve  [R(w)].  toward  the  curve  [R(u)]. 


Clockwise  rotation 
for  the  curve  [r(u))]2 

toward  the  curve  R(u). 


Counterclockwise  rotation 
for  the  curve  [r(a))]2 

toward  the  curve  R(u)). 


Figure  7.  Examples  of  the  Choices  of  Values  for  the  ROTATE  Variable  to  Cause 
the  Curve  r(w)  to  Rotate  Toward  the  R((»))  Curve. 
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J . The  Inversion  Equation 

As  stated  in  section  II,D,  the  approach  taken  in  finding  a best-fit 
electron  density  profile  from  data  is  an  iterative  technique  which  optimizes 
the  trade-off  between  the  deviation  from  measured  data,  represented  by  the 
value  "s",  and  curvature  in  the  wanted  electron  density  profile,  represented 
by  the  value  of  "c".  The  trade-off  was  given  by  the  condition: 

c + xs  minimum  (40) 

where  "X"  must  be  chosen  for  the  optimum  condition. 

The  actual  equation  to  be  solved  in  order  to  obtain  the  desired 
electron  density  profile  is  derived  in  section  II-C  of  reference  3 as: 

coefficient  matrix,  K 


Note  that  the  (Aa.)  matrix  and  the  («?)  matrix  can  also  be  denoted  as  the 
J ^ J 

vectors  (/votj)  and  (a^.)  respectively.  Eq.  (41)  may  be  written  in  the  form  of 
equation  (14)  as 

K (A,g(a.^))  • (Attj)  = T (x,  a°,  g(a,p,  G(u).))  (42) 
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with  solutions 


(AOj)  = (K'^)  • T (43) 

Note  that  the  coefficient  matrix,  K,  must  be  non-singular  for  a solution, 

(ao.),  to  be  obtained. 

“ ->■ 

n0w 

The  C...  matrix  of  equation  (41)  is  given  by  equation  (22),  the  V 

J J 

vector  Is  given  by  equation  (23),  and  the  g^  and  G^.  terms  are  given  by 
equations  (24)  and  (28)  respectively.  The  uncertainty  matrix  (1/a..,)  is 
derived  in  appendix  D of  reference  3,  where  the  resulting  equations  are: 


where  the  matrix: 

i H- 


is  a diagonal  matrix  with  real  constant  elements  and  is  composed  of  the 
expected  uncertainties  as  assigned  to  the  data  values,  R(a)^).  The  expression 
‘’r=R"  implies  that,  in  the  derivatives  (3g/3r),  everywhere  an  r^  occurs  replace 
it  with  R^  (i.e.  a data  value). 


The  derivative  terms  (3g/3r)  are  derived  in  appendix  E of 


reference  3 as: 


y ^i'i"'"i" 
l i"=l 


i'  = 2, . . .m 
i “ 

and  the  a^.,  factors  are  defined  in  equation  (35). 

The  derivative  terms  (3g^/3aj)  are  derived  in  section  III-I  of  reference  3 


m- 


( i ’ S; 

(i  ) 


where  the  derivative  (3r./3a.)  is  given  in  section  IV-E  of  reference  3 as: 

* J 


= 2 J 


3iRi  3j^R| 


(-  - J iR„)‘ 


J = 


III.  SEQUENCE  OF  PROGRAM  EXECUTION 

A more  explicit  description  of  the  inversion  technique  used  in  the 

INVERT  computer  program  is  as  follows. 

First,  the  initial  electron  density  profile  is  defined  to  have  a 

constant  value,  a(z),  for  all  heights  from  the  bottom  height  through  the  top 

height.  The  electron  density  of  this  profile  is  computed  for  all  z.  as: 

J 


«(z). 


‘(Top  stop)  ~ ‘^(Bottom  stop) 
2 


(50) 


This  set  of  a(z).'s  is  defined  as  (a?)  initial.  Note  that  the  height  incre- 

J J 

ments  chosen  for  the  profile  must  satisfy  the  following  relationship: 


^(Top  stop)  ■ ^(Bottom  stop)  _ _ 

■■  ^ELTAH  


(51) 


where  n is  an  integer  and  DELTAH  is  an  initial  value  input  to  the  computer 
program. 

In  the  matrix  equation  (41),  the  first  solution  desired  is  for 
">i"  = Xj  = 0.  This  requires: 


(52) 


where 


(A«j) 


new 


(«°) 

''  Initial 


(53) 


and 


j » 1,. . .n 
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Substitution  of  equation  (53)  into  equation  (52)  gives  the  solution: 


(54) 


This  implies  that  a solution  for  (a.)  is  possible  as  long  as  the  C 


new 


new 


new 


matrix  is  non-singular.  For  the  next  step  in  the  inversion,  the  above  (a.) 

^ 1 ^ 
becomes  (a.)  , which  is  identified  as  the  profile,  a . 

J 1 

A full-wave  computation,  using  the  just  defined  set  of  profile  values, 

(a.)  , as  the  input  profile  will  give  the  set  of  reflection  coefficients, 

^ 1 

r(u.)  (or  really  g(a).)  and  the  derivatives  (3r./8a  J (or  (9g,-/3»-)  ) 

1 ’ 1 ^ J 1 ^ J 1 

needed  to  proceed  with  the  inversion  scheme. 

The  next  step  in  the  procedure  is  to  substitute  the  values  of  (a.)  for 

J 1 

(a°)  along  with  the  values  g(u)^)  , , and  "a"  (i.e.  A=X,=A,=  0)  all 

j ’ 1 ’ J 1 ->  ^ ^ ^ 

into  equation  (41)  and  solve  the  equation  for  (a®.).  The  (Aa-)  solution  will  be 

J 

-► 

identified  as  (AaJ  . This  yields  what  will  be  called  a "settle  down"  profile 
->  2 

(i.e.  (a.)  = (a.)  + (acTJ  ).  The  use  of  the  "settle  down"  profile  in  the 
J 2 J 1 ^2 

inversion  sequence  will  be  discussed  later. 

Note  that  the  variables,  will  be  used  to  identify  the  increasing 

sequence  of  "x"  values  used  in  the  inversion  procedure.  Also,  the  terms, 

AX  will  be  used  to  increment  the  x^..  values.  The  variables  x_.__  will 
odd  odd  even 

be  used  to  identify  the  "settle  down"  steps  in  the  inversion  procedure. 

A relationship  is  that  is  equal  to  the  previous  x^^^  (i.e.  X2  = Xj, 

x^  = Xj  etc.).  This  implies  that  A2  = Aj  = 0.  The  term  AX^^^^  will  not  be 
identified  or  used  in  the  procedure.  The  term  AXj  is  an  initial  value 
assigned  to  the  computer  program  as  the  variable  DELTAL. 
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The  inversion  process  is  illustrated  in  figure  8.  Here  the  curve  shows 


I 


the  variation  of  the  profile,  of(z)  with  the  variable,  "x",  as  given  by  the 

minimization  condition  of  equation  (12).  The  objective  is  to  follow  the  curve 

by  increasing  the  value  of  "X"  with  the  restriction  being  to  stay  as  close  to 

the  curve  as  possible.  The  process  is  halted  when  a predetermined  criteria  is 

met.  This  criteria  will  be  discussed  later.  The  figure  shows  the  basic  steps 

involved  in  the  iterative  sequence  to  obtain  the  desired  final  profile. 

In  figure  8,  the  point  "a"  is  identified  as  the  profile,  (which  is  the 

set  of  (a.)  values  given  by  the  previously  defined  vector  (aj  . To  get  from 
J j 1 

point  "a"  to  point  "b",  in  figure  8,  a new  value  is  assigned  to  the  variable, 

"x".  This  is  given  by  x^^^  = x^  = Xj^  + AX^-  The  value  AX^  is  related  to 

AX,.  At  point  "b",  the  values  of  the  variables  g(a).)  , (ag^/aoj  , x,  and  the 

1 ^ 1 j 1 j 1 J 

vector  (a.)  are  all  substituted  into  equation  (41).  The  (a.),  values  are 

j 2^  J X 


IT) 

a 


Figure  8.  Iterative  Sequence  to  Obtain  Desired  Profile,  (or)^^”*^. 
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substituted  for  the  factor  (aV).  The  only  unknowns  in  the  equations  are  the(Aa.)'s. 

Equation  (41)  is  then  solved  for  the  vector,  (AaJ  = (Aa.)  . For  a solution 

J J 3 

to  be  possible,  the  coefficient  matrix,  K of  equation  (41)  must  be  non-singular. 

Note  that,  throughout  the  remainder  of  the  discussion  of  the  inversion 
procedure,  a solution  to  equation  (41)  will  be  denoted  as  SOLEQS  (or  S.E.). 

This  is  the  name  of  the  subroutine  used  in  the  INVERT  computer  program  to  solve 
for  the  (Aa.)'s. 

J 

A new  electron  density  profile  is  given  by  the  vector  equation: 


(a  ) = (a  ) + (Aa.) 

new  ''  previous  n 


This  gives,  at  the  point  "c"  in  figure  8,  the  new  profile  (aj  . That  is 


(a  ) = (or  ) + (ao.) 


where  (aj  is  identified  in  figure  8 as  the  profile,  a^. 

^ 3 

13 

A quantitative  measure  of  the  change  in  profile  between  a and  or  is 
given  by: 


where  in  this  instance  (Aa.)  = (ao.)  . 

J q J 3 

At  point  "c"  a full-wave  computation,  using  the  vector  set  (aj  as  the 

J 3 

input  profile,  will  give  a new  set  of  reflection  coefficients,  r(u)^)^  (or 

g(a)^)2)  and  the  derivatives  (ar^/aoj)  (or  (3g^/3«j)  ) needed  to  proceed 

3 3 
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} 


\ 

J 

I 


3 

with  the  inversion  technique.  If  the  profile  a lies  close  enough  to  the 
minimization  curve  of  figure  8,  then,  the  choice  of  value  for  is  acceptable 
and  the  inversion  sequence  may  continue. 

3 

The  requirement  for  acceptance  of  the  oc  profile  is  that  the  following 
equation  must  be  true.  That  is: 


(58) 


Here  the  g's  are  real  functions  of  the  variables  g^. (real)  and  g^. (imaginary) , 
(thus  the  reason  for  the  2n  instead  of  n on  the  summation).  Also,  the  g's 
contain  the  uncertainty  matrices,  (1/a),  of  equations  (44)  and  (45). 

A more  thorough  explanation  of  the  meaning  of  expression  (58)  is  the 
following.  First,  let  a variable  g'(a)^)  be  defined  as: 


9 '(a). ) 

’ 3 


(59) 


This  is  a linear  first  order  relationship  between  the  reflection  coefficient 

function  g(u.)  for  profile  and  the  reflection  coefficient  function  ^'(oiij) 

3^  - 

for  profile  oc’.  Now,  the  values  computed  for  the  g((D^)^  variables  using  the 

full-wave  integration  calculation  will  not  necessarily  be  linearly  related  to 

the  g(u)^)^  results.  They  will,  in  general,  be  described  by  second  and  higher 

order  terms  being  added  to  the  first  order  linear ‘term,  as  are  presented  in 
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equation  (59).  The  differences  between  the  linear  variables  g'Cw.)  and  the 
full-wave  variables  g(u)^)  are  thus  related  to  the  magnitude  of  the  higher 
order  terms.  That  is: 


g(wj 


3 3 

full -wave  equation  (59) 


2nd  and  higher  order 

terms  are  (Aa.) 

^ 3 


(60) 


If  the  magnitudes  of  these  higher  order  terms  are  unimportant,  g(u--)  will  be 

3 

very  close  in  value  to  g'(u.)  and  the  choice  of  x,  is  probably  not  too  large. 

On  the  other  hand,  if  the  difference  between  g(oaJ  and  g"(w,.)  is  large  (see 

^3  ^3 

equation  (58))  the  choice  of  x^  is  too  large  and  will  have  to  be  reduced  if  the 

3 

resulting  a profile  is  to  remain  close  enough  to  the  minimization  curve. 

It  is  important  to  point  out  at  this  time  that  small  changes  in  the  profile 

(i.e.,  Aa.)  can  result  in  very  large  changes  in  the  reflection  coefficients,  as 
J 

computed  by  the  full -wave  integration  method,  because  of  the  addition  of  the 
higher  order  terms  mentioned  above. 

To  determine  whether  the  requirement  of  equation  (58)  is  met  sufficiently, 
the  following  criteria  is  introduced  and  identified  as  a "SETTLE-DOWN"  itera- 
tion. To  carry  out  the  "SETTLE-DOWN"  procedure,  the  SOLEQS  routine  is  executed, 

at  the  point  "c"  of  figure  8,  using  the  values  g(a).)  , (ag^/Sa.)  , (a.)  and 

'3  ’33  J 3 

X = A-  = A,  . The  solution  is  the  vector  (ao.)  which  may  be  denoted  as 

^ O J ^ 

(AaJ  . The  subscript,  SD,  stands  for  "SETTLE -DOWN. " 

3 SD 
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The  (AaJ 

J SD 

the  previous  profi 
That  is 


may  be  thought  of  as  those  modifications  which  when  added  to 

le,  a^,  will  give  the  "SETTLE-DOWN"  profile,  (a.)  = . 

J 4 


(a-)  = (aJ  + (Au.)  (60) 

J 4 -^3  J SD 


Note  the  location  of  the  profile,  a , in  figure  8,  This  is  identified  as 

point  "d".  The  values  obtained  for  the  (AaJ  are  used  to  determine  a mea- 

^ SD 

sure  of  the  nonlinearity  of  the  g(u^. ) reflection  coefficients  with  respect  to 

, (AaJ 


the  changes  in  the  profile,  (aj)  . 


Note  here  that  all  factors  , ax^^^  (a^)  . 

to  the  full-wave  related  variables.  The  factors  x , (a.) 

ox/on  ^ 

and  a®  refer  to  "SETTLE-DOWN"  variables. 


and  refer 


. (Aaj) 


even 


The  purpose  of  the  "SETTLE-DOWN"  calculation  is  to  define  a quantitative 

3 

measure  of  how  acceptable  the  a profile  is  for  satisfying  the  minimization 
curve.  Helpful  functions  for  determining  this  requirement  are: 


(gJ  = g(<^J  + 


SD 


FW 


(61) 


i = 1,  . . . m 

where  the  relation  between  g and  g is  the  same  as  defined  for  equation  (58). 
The  subscript,  FW,  stands  for  the  previous  full-wave  solution  for  the  g's  . 
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For  the  case  of  the  profile 


3 

a 


equation  (61)  is: 


(62) 


Equation  (61)  states  that  is  computed  as  a linear  function  of  the  g^'s  . 
A second  function  determined  from  the  "SETTLE-DOWN"  results  is: 


(63) 


where  is  a data  value  as  given  by  equation  (28).  The  expression  S'  will 
be  used  later  in  determining  where  the  interactive  procedure  is  to  be  stepped. 

The  variable  used  to  give  a quantitive  measure  to  the  "SETTLE-DOWN" 
criteria  is  given  as 


D PRIME 


(64) 


If  the  optimum  magnitude  of  the  "SETTLE-DOWN"  is  not  exceeded  then  the  choice 
3 3 

of  A was  not  too  large  and  the  profile  a is  close  enough  for  the  inversion 
sequence  to  continue.  The  variable  0 PRIME  is  indicated  in  figure  8 by  D"  . 

In  order  to  continue  at  an  optimum  rate  of  progress  (i.e.,  incrementing 
"x"  so  as  to  move  along  the  minimization  curve),  or  to  back  up  (i.e.,  decreas- 
ing the  value  of  "x"),  the  following  procedure  is  used  by  the  INVERT  program.  j 


{ 
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A "threshold"  term  is  defined  by  the  equation 


RATIO 


D PRIME 
DOPT 


(65) 


The  numerical  results  of  equation  (65)  is  compared  to  the  set  of  iteration 
rules  presented  in  table  I.  These  rules  state  how  "x"  is  to  be  incremented 

(i.e.,  ^next  ~ ^previous  ^ execution  of  the  SOLEQS  routine 

in  order  for  the  inversion  process  to  continue. 

Assuming  that  the  value  of  RATIO  gives  a favorable  result  as,  determined 

by  the  rules  of  table  I,  an  increment  AX^  is  added  to  x^  to  get  to  point  "e" 

of  figure  8 and  the  inversion  procedure  continues. 

From  the  above  discussion  it  is  seen  that  the  inversion  scheme  proceeds  in 

a "boot  strap"  fashion  of  obtaining  solutions  (Aa-)  to  equation  (41)  for  a 

-►  > 

particular  value  of  "X",  computing  a new  profile  ((a-)  = (a.)  + (Aa.))  , 

-*■  ''  new  old  ^ 

doing  full-wave  calculations  on  the  (a.)  to  get  new  values  of  the  reflec- 

^ new 

tion  coefficient  functions  g(u.)  and  (9g./3a.)  , checking  the  linearity 

' new  ^ new 

of  g(u).)  by  doing  "SETTLE-DOWN"  calculations,  and  finally  increasing  the 
value  of  "x".  The  process  then  continues  by  following  through  with  the  same 
series  of  steps  again. 

The  final  solution  (i.e.,  final  inverted  electron  density  profile)  is 
obtained  as  as  shown  in  figure  8.  The  definition  as  to  what  deter- 

mines that  any  given  profile  in  the  iterative  sequence  should  be  identified 
as  the  final  profile  will  be  that  profile  for  which  the  variable  S"  of 
equation  (63)  reaches  a turning  point  (or  "elbow")  in  a plot  of  S'  versus 
iterative  step  number. 
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TABLE  I 


RATIO  THRESHOLDS 


RATIO 

COMMENTS 

AX 

X 

COWENTS 

0.0 

Convergence  is 

new  old 

^new  " ^old  ^ ^'^new 

Q)  Using  X^^^  solve 

"A" 

going  too  slow- 

1 

SOLEQS  to  get 

ly,  so  want  to 

Compute  new  profile 

^ speed  up.  Use 

^“j^new 

to  get 
new  ^ 

@ Do  full -wave  on 

0.8 

X 

new 

' j'new 

0.8 

1 

Convergence  is 

new  0 1 d 

^new  ^old^^^new 

Same  as  "A"  above. 

"B" 

going  about 

right,  so  want 

1 

to  continue  at 

same  increment. 

j Use  AX„„  , to 
! new 

1.2 

get  X 
^ new 

1.2 

Convergence  is 

AX„^^  = AX„,y2 
new  old 

^new  ^Id  ^ ^^new 

Same  as  "A"  above. 

"C" 

going  too  fast. 

Want  to  slow 

down.  Use  ax„^^, 
new 

2.0 

to  get  X„„^ 
new 

2.0 

Results  are  too 

AX„^  = AX„,  72 
new  old 

^new"  ^old 

0 Using  x^^^  to 

"D" 

far  off  con- 

"saved" 

solve  SOLEQS  for 

vergence  curve. 

is  the  same 

j new 

1 

Will  compute 

as  using 

i 
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TABLE  1 


r 


CONTINUED 


RATIO 

COMMENTS 

AA 

A 

COMMENTS 

“new- 

from  settle  down 

ever  it  will 

solution  of  SOLEQS. 

1 

not  be  used 

but  will  be 

0 Use  (Aaj)3gt^.ig 
down 

to  get  new  profile. 

1 

saved  for 

0 Do  full -wave  on 

4.0 

future  steps. 

(a  . ) 

' j'new 

4.0 

Same  as  "0" 

AA„^^,  = AX„,  ./2 
new  old 

^new"  ^old  "^^old 

0 Set  (a.)„ 

^ ' j'new 

ll£tl 

above 

"saved" 

" ^previous 

^“j^prev. 

0 Do  full -wave  on 

cx> 

these  (a.)'s 

vJ 

The  function  S'  is  a linear  approximation  to  the  function  S which  is 
given  by: 


(66) 


where  the  G.  are  data  values  as  given  by  equation  (28)  and  contain  some  amount 
of  error.  Equation  (66)  is  functionally  related  to  equation  (6)  and  replaces 
the  "S"  factor  in  equations  (12)  and  (13). 

Figure  9 illustrates  the  general  characteristics  of  the  S'  and  S functions 
as  related  to  the  number  of  the  iterative  step  at  any  point  in  the  inversion 
procedure.  The  simulated  data  used  in  figure  9 has  error  statistics  as  will 
be  discussed  In  section  V-A.  That  Is  the  error  Is  gausslan  distributed  and 
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."ELBOW" 

AT  WHICH 
BEST  PROFILE 
IS  OBTAINED 


S VALUES 
S'  VALUES 


INSTABILITY  IN  S DUE  TO 
ATTEMPT  TO  FIT  TO  ERROR 


^ v'  ^ V ^ 

<SL(§Hg)^  ^ 


STEP  NUMBER ► 

Figure  9.  Comparison  between  S and  S'  as  a Function 
of  Iterative  Step  Number. 

unrorrelated  and  also  the  expected  error  values,  , (i.e.,  the  standard 
deviation  values)  are  known.  For  the  results  presented  in  figure  9,  there  are 
20  data  points  used  in  the  computation  (i.e.,  i = 1,  ...  m where  m = 20)  . 
This  implies  that  the  lowest  value  of  S (or  S')  to  be  expected  is  approxi- 
mately 20.  The  approximate  nature  of  this  number  is  due  to  the  number  of 
data  points  being  finite.  That  is,  for  larger  sets  of  data  (S/m)  -►  1 as 
m - <»  if  the  error  for  each  data  parameter  is  independent  of  the  error  for 
any  other  data  parameter.  Continuation  of  the  iterative  process  to  obtain 
S (or  S')  values  much  less  than  20  represents  an  unsuccessful  attempt  to  fit 
the  profile  to  the  error  in  the  data.  The  transition  from  fitting  to  data 
to  fitting  to  the  error  is  Illustrated  in  figure  9 as  an  "elbow"  in  the  S' 
curve.  Beyond  this  point  oscillations  are  introduced  into  the  profile  in  an 
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I 

attempt  to  fit  to  the  error  which  in  turn  leads  to  instability  in  the  values  of 
S . The  linear  projections  represented  by  the  values  of  S'  give  an  indication 
of  the  best  fit  that  can  be  expected. 

Note  that  the  very  definite  transition  point,  represented  by  the  "elbow" 
in  figure  9,  is  the  result  of  complete  knowledge  of  the  error  statistics.  That 
is,  the  expected  errors  (i.e.,  the  standard  deviation  values,  , which  are 
used  with  gaussian  distributed  random  numbers  to  simulate  the  errors)  for  this 
simulated  example  are  known  and  the  error  for  each  data  variable,  6(a)^)  , is 
independent  of  the  error  for  every  other  data  variable.  Otherwise,  the  transi- 
tion represented  by  the  "elbow"  would  be  much  less  well-defined  and  might  even 
be  undetectable  if  too  little  is  known  about  the  actual  error  statistics. 

Experience  gained  in  executing  the  INVERT  program  indicates  that  there 
is  an  optimum  magnitude  of  the  "SETTLE-DOWN"  of  the  profile  which  can  be 
tolerated  for  a valid  sequence  of  profiles.  Singularities  of  the  coefficient 
matrix  of  equation  (41)  will  lead,  however,  to  ever  increasing  values  of 
DPRIME  as  the  value  of  "x"  corresponding  to  the  singularity  condition  is 
approached.  When  this  occurs  in  the  inversion  sequence,  no  further  progress 
can  be  made.  This  case  is  illustrated  in  figure  10.  The  only  possibility 
for  progress  is  to  re-execute  the  INVERT  computer  program  from  the  beginning 
with  a new  initial  value  of  the  input  variable,  ROTATE,  (i.e.,  the  direction 
of  rotation  of  the  r{ui^)  curve  is  reversed).  If  this  option  is  not  success- 
ful in  alleviating  the  problem,  no  solution  is  possible,  for  the  given  set 
of  reflection  coefficient  data,  when  using  the  INVERT  program. 


DOPT 
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Figure  10.  Iterative  Sequence  in  which 
Divergence  Occurs. 
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IV.  STRUCTURE  AND  DESCRIPTION  OF  THE  INVERT  COMPUTER  PROGRAM 


B. 


Description  of  Computer  Program  Routines 

The  function  of  each  program  subroutine  is  listed  below: 

(1)  MAIN  ROUTINE: 

This  routine  controls  tlie  input  of  inversion  parameters 
through  the  Namelist,  DATUM.  It  also  provides  for  the  input 
of  reflection  coefficient  data  and  the  input  of  full-wave 
parameters. 

(2)  SUBROUTINE  D INPUT: 

Input  of  data:  reflection  coefficients  (R)  , uncertainties 
(a)  , and  propagation  frequencies  (ui)  . 

(3)  SUBROUTINE  FWINPT: 

Input  of  full-wave  parameters  through  the  Namelist,  FULL  WV  . 
These  parameters  include  the  angle  of  incidence  of  the  radio 
wave  onto  the  ionosphere,  "THETA",  and  the  geomagnetic  param- 
eters of  the  earth:  propagation  azimuth,  "AZIM",  (i.e.,  degrees 
east  of  magnetic  north).  Codip  angle,  "CODIP",  magnetic  field 


Figure  11.  Structure  of  the  INVERT  Computer  Program. 
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strength,  "MAGFLD",  (in  Webers/square  meter).  Also  input  are 
the  options  for  obtaining  printer  plots  of  electron  density 
profiles,  "IPROFP",  and  reflection  coefficient  plots,  "IRPLOT". 

(4)  SUBROUTINE  CONTRL: 

This  routine  controls  the  running  sequence  of  the  remainder  of 
the  total  program,  especially  the  incrementing  of  the  trade-off 
parameter  "x"  which  determines  the  convergence  of  the  inversion 
scheme. 

(5)  SUBROUTINE  SETHTS: 

This  routine  sets  up  the  initial  electron  density  profile. 

Here,  use  is  made  of  the  input  parameters:  HTSTOP(l)  and 
HTST0P(2)  (i.e.,  the  profile  heights  where  the  maximum  and 
minimum  electron  densities  are  assigned.  Also  of  importance 
is  that  the  value  of  (HTSTOP(l)  - HTST0P(2))/DELTAH  must  be 
a multiple  of  2.  DELTAH  is  the  height  increment  between  each 
profile  point.  See  equation  (51). 

(6)  SUBROUTINE  INTERP: 

This  routine  sets  up  coefficients  used  for  interpolation  between 
the  given  data  points  of  reflection  coefficients  (R)  versus  propa- 
gation frequency  (w).  These  coefficients  are  the  elements  of  the 
B-matrix  of  equation  (34).  This  routine  uses  the  subroutine  DGELB. 

(7)  SUBROUTINE  DGELB: 

The  routine  solves  a system  of  simultaneous  linear  equations 
with  a coefficient  matrix  of  band  structure,  (i.e.,  )(  = C"^  • Y 
where  is  of  the  form: 
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(8)  SUBROUTINE  LOGS; 

The  routine  sets  up  the  parameters  for  making  use  of  the  G 
function  of  equation  (28).  That  is  for  G^.  = In  (dR/du)^ 
where  R^  are  the  input  variables  (i.e.,  functions  of  the 
reflection  coefficients).  The  routine  generates  a continu- 
ous curve  R(u))  (e.g.,  continuous  in  phase)  by  making  use 
of  the  B-matrix  of  equation  (34).  Subsets  (a^^i)  of  the 
6-matrix  are  used  to  compute  the  derivative  term  (dR/du)^. 
along  the  R(a))  curve.  This  derivative  is  given  by  equa- 
tion (35).  Also  obtained  are  the  derivatives  (dG/dR).  of 
equation  (47).  The  uncertainty  matrix  (Va)pg^  of  equa- 
tions (44)  and  (45)  are  also  computed.  This  routine  uses 
the  subroutine  CLINEQ. 

(9)  SUBROUTINE  CLINEQ; 

This  routine  finds  the  solution,  )(  , of  the  matrix  equation 
A*X=JL*y*X  = B where  L and  jJ  are  triangular 
matrices. 

(10)  SUBROUTINE  RDRDA: 

This  routine  sets  up  the  parameters  for  making  use  of  the 
"g"  function  of  equation  (24).  It  computes  the  following 
parameters:  (dr/du)^  of  equation  (37),  (ar^/aoj)  of 
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equation  (49)  and  (3g./3oiJ  of  equation  (48)  to  be  used  in  the 

’ J 

subroutine  SOLEQS.  The  continuity  of  phase  for  (dr/du)  is  also 
accomplished  in  this  routine. 

(11)  SUBROUTINE  INTEG: 

This  routine  does  the  full-wave  integration  for  the  ionospheric 
reflection  coefficients  (i.e.,  g of  equation  (1)  and 
(aR/aaj)  . The  integration  is  accomplished  by  a Runge-Kutta 
procedure.  INTEG  makes  use  of  the  following  subroutines: 

INITL  I,  DIFFEQ  and  COEFFS. 

(12)  SUBROUTINE  INITL  I: 

This  routine  computes  the  ionospheric  reflection  coefficient 
matrix,  R,  for  a sharply  bounded  ionosphere.  These  results 
are  used  as  starting  values  for  the  integration  of  sub- 
routine INTEG. 

(13)  SUBROUTINE  COEFFS: 

This  routine  computes  the  coefficients  for  d^/dz  . 

(14)  SUBROUTINE  INIT  T: 

This  routine  computes  variables  which  are  used  in  the  full- 
wave  solution  and  are  functions  only  of  the  geomagnetic  param- 
eters, (AZIM,  CODIP  and  MAGFLD)  and  the  angle  of  incidence, 
THETA. 

(15)  SUBROUTINE  INIT  S: 

This  routine  computes  variables  which  are  used  in  the  full- 
wave  solution  and  are  functions  of  the  variables  of  INIT  T 
and  also  of  the  propagation  frequency,  u . 
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(16)  SUBROUTINE  DIFFEQ: 

This  routine  computed  the  derivatives  (dR/dz)  and 
d/dz  (3R/3a(Zj))  for  use  in  the  full-wave  integration. 

R is  the  ionospheric  reflection  coefficient  matrix  of 
equation  (1). 

(17)  SUBROUTINE  EN  NU: 

This  routine  interpolates  electron  density  and  collision 
frequency  profiles  as  a function  of  ionospheric  height. 

(18)  SUBROUTINE  SOL  EQS: 

This  routine  obtains  the  solution  of  equation  (41)  in  terms 
of  the  change  in  profile  (AaJ  from  given  values  of  deriva- 

s) 

tives  (3g./3a.)  and  a given  value  of  "x".  This  routine 

* w 

also  computes  the  parameters,  "error  width"  and  "resolution". 

The  solution  (Aa.)  is  obtained  through  the  use  of  the  sub- 

J 

routine  DGELS. 

(19)  SUBROUTINE  DGELS: 

Solves  the  matrix  equation  (41)  for  (Aa.)  . 

J 

(20)  SUBROUTINE  CARDS: 

"Punched"  card  output  for  continuing  inversion  procedure 
in  a subsequent  computer  run. 

(21)  SUBROUTINES  SET  CKL  AND  LK  CLKS: 

Systems  routines  for  keeping  track  of  elapsed  time  so  that 
output  to  subroutine  CARDS  will  be  obtained  before  computer 
run  is  terminated  by  exceeding  the  time  limit. 

(22)  SUBROUTINE  R PLOTS:  • j 

This  routine  provides  computer  printer  plots  of  ionospheric  • < 

i 

reflection  coefficient  functions,  R (data)  and  r (computed).  i 
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(23)  SUBROUTINES  PRINT  N AND  PRINT  P: 


These  routines  print  and  plot  the  electron  density  profile  of 
the  ionosphere. 

(24)  SUBROUTINE  PRINT  RS: 

This  routine  prints  summary  tables  of  computed  parameters  for 
each  successive  iteration  in  the  inversion  scheme.  The  printed 
values  are:  r.  (real,  imaginary) , magnitude  of  (dr/du),  phase 
of  (dr/doj)  in  degrees,  the  transformation  function  g (real) 
and  g (imag.)  , in  radians. 

(25)  SUBROUTINE  OVCHK: 

This  routine  checks  for  overflows  and  underflows  during 
computation. 

(26)  SUBROUTINE  MTX  FCT: 

This  subroutine  provides  for  matrix  manipulations. 

C.  Identification  of  NAMELIST  Variables 
(1)  NAMELIST:  & FULL  WV 

(a)  'THETA'  --  Incident  angle  of  the  transmitted  wave  onto 

the  ionosphere,  (degrees) 

(b)  Geomagnetic  parameters  of  the  earth's  magnetic  field. 

The  clockwise  angle  between  magnetic 
north  and  the  horizontal  propagation 
direction  east  of  north,  (degrees) 

The  magnetic  co-dip  angle  measured 
from  the  vertical  downward,  (degrees) 

The  magnetic  equator  is  specified  by 
'CODIP'  = 90*  while  the  north  magnetic 
pole  is  identified  as  0*. 
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'AZIM' 


'CODIP' 


I 

1 
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"MAGFLD"  — The  intensity  of  the  earth's  magnetic 
field  (Webers/square  meters). 

(c)  "IPROFP"  --  Option  for  obtaining  printer  plots  of  a simu- 

lated original  electron  density  profile  from 
which  reflection  coefficients  have  been  previously  com- 
puted and  are  to  be  used  as  input  data  to  the  program 

"INVERT".  If  'IPROFP'  = 1,  then  computer  plots  of  this 

simulated  profile  will  be  superimposed  upon  plots  which 
are  automatically  printed  of  electron  densities  obtained 
from  successive  iterations  of  the  inversion  scheme.  Note 
that  the  profile  heights  of  the  simulated  profile  must  be 

identical  to  the  heights  of  the  profiles  obtained  through 

the  iterative  steps.  If  not  the  program  execution  stops. 

If  'IPROFP'  = 0,  only  the  iterative  profiles  are 
plotted.  This  is  because  if  the  input  data  values,  R(w^)  , 
were  obtained  from  actual  measurements,  there  would  be  no 
simulated  data  profile  and  therefore  no  profile  to  plot. 

(d)  'RPLOTS'  --  Option  for  obtaining  printer  plots  of  r (real) 

and  r (imaginary)  in  the  complex  r-plane, 
'RPLOTS'  = 1 gives  the  plots,  'RPLOTS'  = 0 results  in 
no  plots. 

(2)  NAMELIST:  &DATUM 

(a)  'HTSTOP'  " The  heights  (km)  of  the  electron  density 

profile  at  which  the  profile  "stops"  are  to 
be  applied.  "HTSTOP(l)"  is  the  higher  height  correspond- 
ing to  "STOPS(l)"  while  "HTST0P(2)"  is  the  lower  height 
corresponding  to  "ST0PS(2)". 
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(b)  'STOPS'  — The  limiting  values  (in  electrons/cm  ) of  the 

electron  densities  that  the  iterated  profile 
can  take  on  at  the  heights.  HTSTOP(l)  and  HTST0P(2). 

(c)  'NUFLAG'  ” This  parameter  allows  for  a choice  of  exponen- 

tial collision  frequency  profiles  to  be  used 
in  the  calculations.  The  exponential  collision  frequency 
is  given  by  v(z)  = COEFNU * EXPNU(z)  where  "z"  is  the 
ionospheric  height  in  km. 

(i)  If  "NUFLAG  = 0",  the  values  are: 

COEFNU  = 1.816  E + 11,  coll/sec 

EXPNU  = -0.15  km‘^ 

(ii)  If  "NUFLAG  = 1",  the  values  are: 

COEFNU  = 4.303  E + 11,  coll/sec 

EXPNU  = -0.1622  km"^ 

(iii)  If  a different  exponential  is  desired,  set 
"NUFLAG = 0"  and  enter  the  new  values  of  COEFNU 
and  EXPNU  through  the  NAMELIST,  DATUM. 

(d)  'DELTAL'  — The  initial  value  of  the  parameter  ax  . 

(e)  'DOPT'  --  A term  used  in  the  iterative  procedure  and 

defined  by: 


(f) 


'ALPHA' 


RATIO 


DPRIME 
' DOPT 


The  values  of  the  logs  of  electron  densities 


at  each  height  of  the  profile,  (i.e., 
a(z)j  = log^Q  . These  ALPHA  values  are  obtained 

from  a previous  execution  of  the  INVERT  program  and  are 
output  from  the  subroutine  "CARDS". 
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(g)  'NRSTPS(J,I) ' — The  number  of  Runge-Kutta  steps  in  a 

pair  of  height  intervals  between  heights 
(h(2j_l))  and  frequency,  . 

(h)  'NR'  — The  number  of  increments  that  have  been  made  in 

"A"  in  solving  equation  (41). 

(i)  'IPRNTE'  --  The  truncation  error  in  Runge-Kutta  analysis 

is  printed  when  IPRNTE  = 1 . 

(j)  'IPRINT'  — Printout  of  Sudden's  reflection  coefficients 

as  a function  of  height.  Printed  when 
IPRINT  * 1 . 

(k)  'ROTATE'  --  Determines  the  rotation  of  the  computed  r{ui) 

curve  in  the  r-plane.  The  values  used  are 
that: 

= is  counter-clockwise  rotation. 

= is  clockwise  rotation. 

ROTATE  > = "0",  the  program  chooses  the  rotation 

direction  of  smallest  difference  between 
the  and  the  of  section  (II-I). 
The  following  tables  give  the  initial  values  of  the 
NAMELIST  variables. 


TABLE  II 


r 

I 
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NAMELIST  VARIABLES  AND  INITIAL  VALUES, 
NAMELIST:  &FULL  WV 


NAME 

1 

VALUE 

UNITS 

AZIM 

90.0 

degrees 

CODIP 

12.0 

degrees 

MAGFLD 

5.3E-  5 

Weber/square-meter 

THETA 

22 

degrees 

IRPLOT 

1 

none 

IPROFP 

1 

none 

IPRINT 

0 

none 

I 
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TABLE  III 


r 


NAMELIST  VARIABLES  AND  INITIAL  VALUES, 
NAMELIST:  &DA1UM 


NAME 

VALUE 

UNITS 

NAME 

VALUE 

UNITS 

ALAMDA 

0.0 

km 

HTSTOP(l) 

93 

km 

ROTATE 

0.0 

degrees 

HTST0P(2) 

50 

km 

DELTAH 

1.0 

km 

STOPS(l) 

1.0E3 

3 

electrons/cm 

OELTAL 

1.0/64.0 

km 

STOPS(2) 

3.0 

3 

electrons/cm 

DELE 

0.1 

kHz 

COEFNU 

1.816 E 11 

collisions/sec 

DOPT 

1.0 

none 

EXPNU 

-0.15 

km"^ 

IPRNTE 

0 

none 

ALPHA(51) 

none 

none 

NUFLAG 

0 

none 

1 

NRSTPS 

none 

none 

NR 

1.0 

1 

1 

none 

MIN 

10.0 

minutes 

i 
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V. 


EXECUTION  OF  INVERT  USING  SIMULATED  DATA 


A.  Errors 

To  illustrate  the  inversion  procedure,  the  INVERT  computer  program 
may  be  executed  using  simulated  reflection  coefficient  data  as  input. 

The  simulated  data  input  is  described  by: 

R(u)J  = R(u).)  + e.  (68) 

^ ^ ^ F.W.  ^ 

i = l,. . .m 

where 

--  are  the  propagation  frequencies. 

R(u). ) --  are  the  reflection  coefficient  variables  as  defined  by 

^ F.W. 

equation  (2)  and  are  obtained  from  execution  of  the 
FULLWAVE  computer  program.  These  values  may  be  thought 
of  as  the  true  values  of  the  Reflection  coeffic’ents  of 
the  data  when  no  error  is  present. 

--  are  the  actual  simulated  errors  assumed  to  be  present  in 
the  data  R{a)^)  at  each  frequency. 

E 

The  above  variables  are  computed  using  two  auxiliary  computer  programs. 
These  are  identified  as  FULLWAVE  and  RANDOM.  FORTRAN  listings  of  these  pro- 
grams are  included  in  appendices  A and  B of  this  report. 

B.  The  Auxiliary  Program,  FULLWAVE 

The  FULLWAVE  computer  program  gives  simulated  reflection  coefficient 

values  for  the  factor  R(a)J  of  equation  (68).  These  values  are  obtained  from 

’ F.W. 

the  integration  of  equation  (4)  and  the  generation  of  equation  (5)  (or  equa- 
tion (2)).  The  input  to  the  program  is  a simulated  electron  density  profile  (i.e. 
the  "Data  Profile"),  assumed  collision  frequency  profile,  geomagnetic  field  parame- 
ters, the  frequency  range  desired  and  a value  to  be  assigned  to  the  expected  error,  SIGMA. 
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Figure  12  illustrates  the  relationship  of  the  various  subroutines 
for  the  FULLWAVE  program. 

The  following  is  a list  of  the  subroutines  used  in  the  FULLWAVE 
computer  program. 

(1)  MAIN  ROUTINE; 

Provides  for  input  to  the  program,  including  input  electron 
density  and  collision  frequency  profile.  It  also  provides  for 
NAMELIST  input. 


Figure  12.  Program  Flow  for  FULLWAVE. 


I 
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(2)  SUBROUTINE  PRFLIN: 


Provides  for  reading  an  electron  density  profile  into  the 
program.  This  profile  is  a table  in  terms  of  height  and 

3 

electron/cm  . 

(3)  SUBROUTINE  COLFIN: 

Provides  for  reading  a collision  frequency  profile  into  the 
program.  This  profile  consists  of  only  the  frequencies  at  the 
top  and  bottom  heights  of  the  electron  density  profile. 

(4)  SUBROUTINE  CONTRL: 

Controls  the  running  sequence  of  the  total  program. 

(5)  SUBROUTINE  INTEG; 

Performs  the  integration  of  the  differential  equations  for  the 
ionospheric  reflection  matrix  using  Runge-Kutta  integration 
formulas.  Subroutines  utilized  for  this  operation  are:  INITLR, 
QUARTC,  SMTRX,  TMTRX,  ENNU,  DIFFEQ. 

(6)  SUBROUTINE  RPLOTS: 

Provides  for  printer  plots  of  real  and  imaginary  parts  of  the 
reflection  coefficient  function  of  equations  (2)  and  (5). 

(7)  AUXILIARY  ROUTINES: 

BLOCK  DATA,  XFER,  OVCHK  and  ROUT. 

The  following  are  NAMELIST,  "DATUM"  input  variables: 

(1)  FLOW: 

The  lowest  frequency  (kHz)  for  which  full-wave  computations  are 
to  be  made. 

(2)  m: 

The  highest  frequency  (kHz)  for  which  full -wave  computations  are 
to  be  made. 
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(3)  FINC: 

The  increment  in  frequency  (kHz). 

(4)  THETA: 

The  angle  of  incidence  on  the  ionosphere  of  the  transmitted 
radio  wave. 

(5)  AZIM: 

The  azimuth  of  the  radio  wave  direction  measured  in  degrees  east 
of  magnetic  north. 

(6)  CODIP: 

The  codip  of  the  magnetic  field  vector.  CODIP  = 90®  at  the 
earth's  magnetic  equator  and  = 0®  at  the  earth's  north  magnetic 
pole. 

(7)  MAGFLD: 

The  magnitude  of  the  earth's  magnetic  field  (webers/m  ) 

(8)  NUFLAG: 

A flag  for  determining  the  collision  frequency  profile  to  be 
used  in  the  "full  wave"  computations.  The  following  criteria  is 
used: 

NUFLAG  = 0,  COEFNU  = 1.816E11  collisions/sec. 

EXPNU  = -0.15  km‘^ 

NUFLAG  = 1,  COEFNU  = 4.303E11  collisions/sec 
EXPNU  = -0.1622  km‘^ 

If  a table  of  collision  frequency  values  is  to  be  read  in 
through  the  subroutine  COLFIN,  then  NUFLAG  must  also  be  set  to 
zero. 
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(9)  NPUNCH; 


If  NPUNCH  = 0,  no  output  cards  are  punched.  If  NPUNCH  = 1, 
output  cards  are  obtained  with  frequency  (kHz),  real  and 
imaginary  parts  of  the  R variable  of  equation  (2)  and  a choice 
for  the  expected  error,  SIGMA,  on  each  card. 

(10)  IPROFP: 

Provides  for  printer  plot  of  electron  density  profile: 

IPROFP  =1:  plot  is  obtained 

IPROFP  = 0:  no  plot 

(11)  IRPLOT: 

Provides  for  printer  plot  of  R-parameter  from  equation  (2). 
IRPLOT  = 1:  plot  is  obtained 

IRPLOT  = 0;  no  plot 

(12)  SIGMA: 

The  value  of  the  expected  error,  o..,,  assigned  to  each  data 
value,  R(<d^). 
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TABLE  IV 


INITIAL  VALUES  OF  FULLWAVE 
NAMELIST  VARIABLES 


NAME 

INITIAL  VALUE 

UNITS 

FLOW 

0.5 

kHz 

FHI 

25.0 

kHz 

FINC 

0.5 

kHz 

THETA 

0.0 

degrees 

AZIM 

none 

degrees 

CODIP 

none 

degrees 

MAGFLD 

none 

2 

webers/meter 

NUFLAG 

0 

none 

COEFNU 

1.816  X 10^^ 

collisions/sec. 

EXPNU 

-0.15 

km"^ 

NPUNCH 

1 

none 

IPROFP 

1 

none 

IRPLOT 

1 

none 

SIGMA 

20(0.03) 

none 

C.  The  Auxiliary  Program,  RANDOM 

The  computer  program  RANDOM  provides  for  gaussian  random  error 

values,  E.,  to  be  added  to  the  FULLWAVE  reflection  coefficient  values  R(a).) 

’ ’ F.W. 

The  actual  simulated  error,  e^.  , is  computed  by  the  expression: 


= ^•q  ^ '^i 


(69) 


i=l , . , .m 

where 

o^.  --  is  the  expected  error  in  the  data  as  chosen  for  each 

frequency,  . 

u^.q  " is  obtained  from  a random  number  generator  where  "q"  is 

the  number  identifying  the  particular  set  of  random  numbers 
used. 

Define  a random  variable  u(x),  which  is  gaussian  distributed  with 
standard  deviation,  0=1,  as: 


u(x)«  ^ exp  (-x^/2) 


(70) 


This  distribution  is  shown  in  figure  13  where  the  distribution  is  truncated 
between  -6  and  +6. 


Figure  13.  Gaussian  Distribution. 
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Let  different  sets  of  random  numbers  be  identified  as  q = 1,2 — , 


where  the  value  assigned  to  "q"  is  input  to  the  program,  RANDOM  by  the 

NAMELIST  variable,  IRANDM.  A given  q-th  set  of  random  numbers  is  given  by 

the  values,  u . , i=l  ...  . 
iq  , 

Note  that  the  value  chosen  for  represents  the  standard  deviation 

of  e^.  = u.q  X as  a large  number  of  sets,  q,  are  considered. 

In  the  computer  program,  RANDOM,  the  complex  values  of  R(a).)  are 

’ F.W. 

divided  into  real  and  imaginary  parts.  The  same  value,  , is  then  applied  to 

each  of  the  parts  (i.e.  real  and  imaginary)  of  a given  R(a).)  . Separate 

’ F.W. 

values  of  u.  are  applied,  however,  to  the  real  part  of  R(u.)  and  to  the 

^ F.W. 

imaginary  part  of  R(a).)  . In  the  complex  R plane  the  expected  error,  a., 

’ F.W.  ’ 

is  represented  as  a circle  of  radius  a.  about  the  data  point  R(u.)  . 

' ' e 

The  above  definitions  are  such  that  for  a given  frequency,  w. , and 

given  chosen  value  for  the  expected  error,  o.,  then  the  true  value,  R{w.)  , 

’ ’ F.W. 

will  lie  within  the  error  circle  of  radius  a.,  drawn  around  the  value 
R(a).)  ,68.3%  of  the  time  as  a large  number  of  error  sets,  q,  are  considered. 

I € 

This  result  is  illustrated  in  figure  14. 

The  NAMELIST  variables  of  the  computer  program  RANDOM  consist  of 
the  following: 

IRANDM  --  Determines  a specific  set  of  random  numbers. 

Default:  IRANDM  = 1. 

NRF  --  The  number  of  propagation  frequencies. 

Default:  NRF  = 20. 

SIGMA  --  The  expected  error,  (o^),  in  the  R-data. 

Default:  SIGMA  = (0.03).  , 

I 


i 
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Figure  14.  "Error  Circles"  for  a given  Figure  15.  Program  flow  for 

Frequency,  and  given  expected  error,  using  simulated  data  in  INVERT 

, for  three  error  sets,  q.  program. 

D.  Examples  of  INVERT  Execution  for  Simulated  Data 

The  following  sequence  of  computer  runs  must  be  carried  through  in 

order  to  complete  an  execution  of  the  INVERT  program  using  simulated  data. 

Figure  15  shows  the  sequence  of  the  re?iuired  programs. 

First,  the  set  of  reflection  coefficient  values,  R(uJ  is  obtained 

^ F.W. 

from  the  auxiliary  program,  FULLWAVE.  The  inputs  to  this  program  are  the  known 
electron  density  profile  (i.e.  simulated  data  profile),  incidence  angle,  THETA, 
the  geomagnetic  field  parameters  and  the  range  of  propagation  frequencies 
desired.  The  chosen  expected  error,  SIGMA  (o^),  may  also  be  input.  There  are, 
however,  default  values  of  incorporated  into  the  program.  The  output  con- 
sists of  the  set  of  values:  frequency,  u. , computed  values  of  R(u)^)  {real} 

’ ’ F.W. 


and  R(u, ) {imaginary}  along  with  values  of  the  expected  error,  SIGMA  (i.e.o,).  ^ 

’ F.W.  ' I 

There  is  one  set  of  all  the  above  values  for  each  frequency,  u..  I 


.Jit< 


Second,  a choice  is  made  as  to  whether  it  is  desired  to  add  random 

error  to  the  R(u))  values  obtained  from  the  FULLWAVE  calculations.  If  not, 

FW 

the  output  from  FULLWAVE  is  input  directly  into  the  INVERT  program.  If  error 

is  desired,  then  the  output  from  FULLWAVE  is  input  into  the  program  RANDOM. 

Additional  inputs  into  RANDOM  are  the  number  of  propagation  frequencies,  NRF, 

and  the  value  of  "q",  IRANDM,  as  discussed  in  Section  V-C.  Also,  if  the 

choice  of  values  for  o^.  is  different  from  that  of  the  FULLWAVE  output,  then 

modified  values  of  may  also  be  input  to  RANDOM  through  its  NAMELIST,  DATUM. 

The  computations  within  the  RANDOM  program  add  a random  error  value,  , to  the 

FULLWAVE  values,  R(a).)  , to  give  the  data  values,  R(a).)  . The  output  from 

’ FW  ’ e 

the  RANDOM  program  consists  of  the  set  of  values:  frequency,  , computed 

values  of  R((d.)  {real}  and  R(i»k)  {imaginary}  along  with  values  of  the 

E E 

expected  error,  SIGMA  (i.e.,  o^).  There  is  one  set  of  the  above  values  for 
each  frequency,  w.  . 

Finally,  the  input  to  the  INVERT  program  consists  of  the  known 
electron  density  profile  (i.e.,  simulated  data  profile),  the  output  values 
from  either  FULLWAVE  or  RANDOM,  the  incidence  angle  (THETA),  the  geomagnetic 
field  variables,  and  various  constraints  which  are  applied  in  the  inversion 
procedure.  The  output  from  INVERT  is  the  inverted  electron  density  profile. 

The  following  examples  of  input-output  values  illustrate  the  inversion 
sequence  for  simulated  data. 

Example  I lists  the  input  values  to  the  FULLWAVE  program  including  the 

3 

profile  of  electron  density  per  cm  at  each  height  and  the  NAMELIST  variables. 

Example  II  shows  the  printed  output  from  FULLWAVE  consisting  of  a table  and 

corresponding  plot  of  the  input  profile.  Example  III  gives  the  printed  output 

from  FULLWAVE.  This  includes  a table  of  the  values  of  the  output  variables  and 

a plot  of  the  R((i){)  data  values  in  the  complex  plane.  Note  that  the  table 
’ FW 


t 
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values  are  also  punched  on  cards  to  be  used  as  input  into  either  the  RANDOM 
program  or  directly  into  INVERT  if  the  no-error  case  is  desired. 

Example  IV  illustrates  the  input  values  into  the  RANDOM  program. 
Note  that  IRANDM  = 2 for  this  case.  Example  V gives  the  printed  input. 
Example  VI  presents  the  random  numbers  computed  using  IRANDM=2.  These  num- 
bers are  used  to  compute  the  actual  simulated  error,  . The  equation  is: 


R(u)J  {real}  = R{ui.)  (real)  + (U.  -(real)  x a.) 
^ e Vw  ’ 


R(a).)  {imag}  = R(a).)  (imag)  + (U.  ,(imag)  x a.) 
’ G ’ FW  . 


(71) 


Using  the  values  for  of  example  V to  illustrate  the  computation  gives: 


R(w  ) {real}  = 0.290  + (-3.233  x 0.03) 

G 

= 0.193 

R(a)  ) {imag}  = -0.332  + (1.687  x 0.03) 
e 

= -0.281 


(72) 


The  results  of  these  computations  are  given  in  example  VII.  The  printed  and 
punched  output  showing  final  results  of  the  RANDOM  calculations  are  presented 
in  example  VIII.  This  punched  output  is  to  be  used  as  input  to  INVERT. 

In  order  to  show  a comparison  between  the  results  from  two  different 
choices  of  sets  of  random  errors  to  be  added  to  the  FULLWAVE  output,  a com- 
putation for  IRANDM  = 3 is  also  presented  In  examples  IX,  X and  XI. 
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The  series  of  input-output  examples  characteristic  of  INVERT  execution 
are  presented  as  follows.  Example  XII  gives  the  input  values  to  INVERT.  These 
values  are  for  the  reflection  coefficient  data  containing  random  error  set  num- 
ber 2.  The  input  values  are  for  the  variables:  propagation  frequency  , 

the  data  values  R(a)^)  {real}  , R((i).)  {imag}  and  the  expected  error,  a.  . Also 

e e 

included  are  the  two  sets  of  NAMELIST  variables.  These  are  identified  as 
FULLWV  and  DATUM.  Example  XIII  shows  the  printout  of  input  data  to  INVERT. 

Example  XIV  is  the  printout  of  initial  steps  in  the  INVERT  execution. 

The  following  examples  are  to  be  compared  closely  with  the  discussion  concern- 
ing figure  8 in  section  III  of  this  report.  Example  XV  is  obtained  from  the 
INVERT  subroutine  PRINTN.  Example  XVI  shows  the  computed  results  of  r(o)^)  , 

I (dr/doj).  I , (<i(dr/d<D)^. , |g|  and  4.^  as  given  by  equations  (5),  (25)  and  (37)  as 
obtained  from  the  full-wave  integration  of  the  profile  in  example  XV.  Example 
XVII  is  the  plot  of  and  r(iD)  values  as  presented  in  the  complex  R (or 

r)  plane.  The  results  of  R((a)^)  are  those  listed  under  "data  values"  for 
"RE(R)"  and  "IM(R)"  in  example  XIV.  The  inversion  values,  r(u).)  , as  obtained 
from  full-wave  integration  of  the  initial  profile  of  example  XV  are  listed  as 
RE(R)  and  IM(R)  in  example  XVI  and  identified  as  "computed  values"  in  example 

XVII.  Note  the  large  mismatch  between  the  R(a)^)  data  values  and  the  r(a).) 

e 

computed  values  shown  in  example  XVII. 

As  discussed  in  section  III,  the  inversion  procedure  contains  a 
checking  criteria  which  aids  in  preventing  divergence  by  limiting  the  size  of 
the  increments  allowed  for  the  variable  "AX".  This  criteria  is  identified  as 
the  "SETTLE-DOWN".  Example  XVIII  shows  the  "SETTLE-DOWN"  printout  including 
the  variables:  S'  from  equation  (63),  DPRIME  from  equation  (64),  RATIO  from  I 

equation  (65)  along  with  a table  and  printer  plot  of  the  "SETTLE-DOWN"  profile 
as  obtained  from  the  subroutine  PRINTP. 
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Note  in  the  actual  computer  printout  two  additional  variables  are  also 
present.  These  are  printed  as  "UNC"  (i.e.,  the  uncertainty)  and  "RES"  (i.e., 
the  resolution).  These  variables  are  presented  and  discussed  in  reference  5 
pp,  25-28. 


According  to  the  iterative  sequence  described  in  section  III,  the 
inversion  procedure  continues  as  shown  in  example  XIX  for  steps  (a)  through 
(m).  That  is  a new  AX  (i.e.,  AX^)  is  computed  giving  a new  value  for  "x" 

(i.e.,  X,)  . Next  a solution  for  a new  profile  increment  (Aa) . , (i.e., 

(Aa.)  ) is  obtained  by  solving  equation  (41)  with  the  SOLEQS  routine.  The  pro- 

^ 3 

file  increment  is  added  to  the  previous  profile  giving  the  new  profile  a.  . Full- 

J 

wave  solutions  of  r(u.){real}  and  r(a).){imag}  are  obtained  for  the  profile  a^. 
These  r(a)^.)  values  are  then  plotted  in  the  complex  r-plane,  as  in  example  XVII, 
The  value  of  "S",  from  equation  (66),  is  also  computed  at  this  point.  The 
SETTLE-DOWN  criteria  is  then  applied  with  results  computed  for  S'  , from  equa- 
tion (63),  DPRIME,  from  equation  (64)  and  RATIO,  from  equation  (65).  The  itera- 
tive sequence  then  proceeds  again  in  a similar  manner  through  the  steps  (a) 
through  (m)  with  the  calculation  of  a new  AX  (i.e.,  AX^)  and  new  "X"  (i.e.,  x^). 
The  complete  "boot-strap"  procedure  is  repeated  several  times  with  computer 

plots  of  each  iterative  profile  and  of  each  match  between  R(6o^)  data  and  the 

e 

resulting  fullwave  values  of  r(to.)  presented  at  each  step. 

If  the  resulting  values  of  S'  , from  equation  (63),  and  of  S , from 

equation  (66)  are  manually  plotted  against  iterative  step  number,  the  results 

presented  in  figure  16  are  obtained.  As  discussed  previously  in  section  III, 

with  regard  to  figure  9,  an  "elbow"  is  obtained  for  the  S'  curve.  Beyond  this 

step  oscillations  are  introduced  into  the  profile  by  an  attempt  to  fit  to  the 

error  in  the  R((d^)  values.  This  in  turn  leads  to  instability  in  the  values  of 
e 

S and  this  instability  is  shown  in  the  figure. 
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Figure  16.  S and  S'  Curves  for  Random  Error  Set  Number  2. 

Figure  17  illustrates  the  inversion  results  in  terms  of  the  S and  S' 
curves  for  the  set  of  random  errors  obtained  from  examples  IX,  X and  XI,  (i.e., 
IRAN0M  = 3).  Note  that  these  results  are  qualitatively  similar  to  those  of 
figure  16  but  quantitatively  different  because  of  the  different  sets  of  random 
errors  present.  As  a matter  of  interest,  figure  18  is  presented  to  show  the 
relationship  between  the  S and  S'  curves  when  no  random  error  is  present. 

The  manual  plotting  of  the  S and  S'  results,  as  given  by  figure  16, 
allows  for  the  selection  of  a particular  iterative  step  (i.e.,  that  step  num- 
ber at  the  "elbow"  position)  to  be  chosen  as  the  one  which  gives  the  required 
Inverted  profile  of  electron  density.  For  the  case  presented  above,  for  the 
random  error  set  number  2,  the  profile  for  step  number  18  is  shown  in  example  XX. 
The  plot  compares  the  original  simulated  data  profile  with  the  chosen  final 
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Figure  18.  S and  S'  Curves  for  No  Added  Random  Error 


r 


inverted  profile.  Example  XXI  illustrates  the  R-plane  comparison  between  the 

R(a).)  data  points  and  the  full-wave  computed  values  r(a).)  using  the  above 
e 

inverted  profile.  Also  shown  in  this  example  are  the  printouts  obtained  from 
the  INVERT  calculations. 

Section  V-C  states  that  for  a given  frequency,  w.  , and  given  chosen 

value  for  the  expected  error,  o.  , the  true  value  of  R(a).)  will  lie  within 

’ ’ FW 

the  "error  circle"  of  radius  , drawn  around  the  value  R(u).)  , 68.3%  of  the 

e 

time  for  a large  number  of  error  sets.  The  results  of  example  XXI  are  shown 
plotted,  with  these  "error  circles",  in  figure  19. 

For  the  random  error  set  number  3 (see  examples  IX,  X and  XI),  the 
S and  S'  results  were  shown  plotted  in  figure  17.  The  inverted  profile  for 
step  number  19  is  shown  in  example  XXII.  This  plot  compares  the  original  simu- 
lated data  profile  with  the  chosen  final  inverted  profile.  Example  XXIII  illus- 
trates the  R-plane  comparison  between  the  R(u)^.)  data  points  and  the  full-wave 
computed  values,  r(a)^)  , using  the  inverted  profile  of  example  XXII  as  input. 

The  results  of  example  XXIII  are  also  shown  plotted  with  "error  circles"  in 
figure  20. 

In  figure  18,  for  the  no  error  case,  the  scale  used  for  the  S and  S' 
axis  was  such  that  the  magnitudes  of  S and  S'  appear  to  be  zero  at  step  num- 
ber 19  and  beyond.  Figure  21  shows  the  same  plot  as  figure  18  except  on  a 
much  expanded  scale.  In  this  case  the  existence  of  truncation  error  in  the 
Runge-Kutta  integration  procedures  is  obvious.  Examination  of  the  results, 
shown  plotted  in  figure  21,  give  the  choice  of  integrated  profile  to  be  that 
represented  by  step  number  28.  This  profile  is  presented  in  example  XXIV  as 
compared  with  the  original  simulated  data  profile.  Example  XXV  then  gives  the 

R-plane  comparison  between  the  data  points,  R(oi).)  and  the  full -wave  computed 

’ FW 

values.  r(u)^)  from  the  Inverted  profile  of  step  number  28. 
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Figure  21.  S and  S'  Curves  for  No  Added  Random  Error  (Expanded  Scale). 
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PRINTED  FULLWAVE  OUTPUT 
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(PUNCHED  AND  PRINTED  FULLWAVE  OUTPUT) 


INPUT  TO  RANDOM 


K»ATUN 

NRF«10, 
(€MO 
Tt 


hr 

063 


RANDOM 


m 


-99, 9C 


»8 

.154 

.027 


ROR  (NO 


142 


)14 


ill' 


Lr(o 


iV.w.— 


SIMULATED  PROFILE  (NO. 

example  IV 


PRINTED  RANDOM  INPUT 

TEST  CASE  FOR  ADDED  RANDOM  ERROR  (NO.  2)  SIMULATED  PROFILE  (NO. 


INPUT  DATA 

j-  R((i)^ 

^F.W.“| 

N 

FREQUENCY 

R 

real 

imaginary 

1 

7.000 

?f90 

-.332 

2 

8.000 

.497 

-.243 

3 

9.000 

.520 

-.060 

4 

10.000 

.457 

.068 

5 

11.000 

.363 

.130 

6 

12.000 

• 258 

.142 

7 

13.000 

.154 

.123 

8 

14.000 

.069 

.036 

9 

IS. 000 

.024 

• 044 

10 

16.000 

.027 

.014 

EXAMPLE  V 

1-B) 


1-B) 
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PRINTED  RANDOM  OUTPUT 


-TL&T  C.AS£  fflR  gANi>im  fRROR  <NO«  2i 

ftAUSSlAN  RANDOH  X DATA 

1 IRANDM 

1 133t975123 

2 1582263849 

i :!ii 

l lipilii 

10  487400977 


SlJItlLATIP  PROFILE  (NO. 


XIMAG 


1.687 

-1.123 

-mi 

1.271 


PRINTED  RANDOM  OUTPUT  EXAMPLE  VII 

TEST  CASE  FOR  ADDED  RANDOM  ERROR  (NO.  2)  SIMULATED  PROFILE  (NO.  1-B) 


N 

\ 

3 

6 

7 

I 

10 


OAUSSIAN  RANDOM  R DATA 
FREQUENCY  V.W.-, 


4! 

060 


42 

23 

It 

14 


RR 

.463 

.175 

m 


CS>.) 


if) 

106 

091 


PRINTED  AND  PUNCHED  RANDOM  OUTPUT 


EXAMPLE  VIII 


SIMULATED  DATA  PROFILE. (NO.  1-B>  __((FOR  THULE)) 

1 . 2) 


M 


• ADDED  RANDOMS  ERROR  ••• 


.463 

.^6*1 

.245 

ilil 


f06 


Mi 


(SET  N0< 


R(<.i^)^“ 


.8 

818 
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1-B) 


SIGMA 


TEST  CASE  ^0^  ADDED  RANDOM  ERROR  (NO»  3)  SIMULATED  PROFILE  <NO.  1-B) 


PRINTED  RANDON  INPUT 


example  IX 


(D  ATOM 

IBASD''  = 3, 
KB  * = 10, 

1L*>D  

TtfT  CASE  FOR 

* .0: 

'=.00’ 

1 

12.00 
17. rr 

14.00 

I'-.or 
1"  .c? 

-<,<■..90  


ADDED 

.457 

.36? 

.25P 

-•454 

.024 

.027 


RANDOM  ERROR 
-.332 

:?!§ 

.142 

- -m— 

.04  4 

.014 


JO.  3) 
.030 
.f'30 
_j.T’3C  . 


SIMULATED  PROFILE  (NO.  1-P) 


PRINTED  RANDOM  OUTPUT 


EXAMPLE  X 


TEST  CASE  FOR  ADDED  RANDOM  ERROR  (NO.  3)  SIMULATED  PROFILE  (NO.  1-B) 


GAUSSIAN  RANDOM  X DATA 


JLiiANCK 

7eFi3'i2"’73 

'UlllUVi 


^:iU 

.36P 

.024 


IRANDM 


ie05R51c65 

4O0665393 

S8S?ll!?r 

9B09382S7 

629949969 

9026 37C73 
1042621969 


Il7? 

■’:‘3?2 
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PRINTED  RANDOM  OUTPUT 


TEST  CASE 

FOR  ADDED  RANDOM 

ERROR  (NO. 

SIMULATED  profile  (NO. 

1-P) 

K 

GAUSSIAN 

FREQUENCY 

RANDOM  R DATA 

R(^^R(io 

SIGMA 

1 

7.00'' 

.290 

.^3? 

.17R 

-.  ’13 

.030 

c 

8. Our 

.497 

.2n3 

.4  96 

-.238 

.030 

T 

9.0UC 

.:'2C‘ 

.060 

.4  72 

-.C59 

.030 

i 

1C. cor 

.457 

.06B 

.494 

.C35 

.030 

5 

.363 

.150 

.375 

.C85 

.(^30 

6 

12.  Cur 

.258 

.142 

.259 

.153 

.030 

7 

II.OQC 

.154 

.123 

.16S 

.146 

.030 

S 

U.CG!" 

.ro9 

. 0 3 3 

.084 

.030 

9 

IS.fjr 

.'■■24 

.0<>4 

.026 

. C22 

.030 

TO 

16.'T0<' 

.•'2'’ 

.PU 

-.CCS 

.0^5 

.'’30 

PRINTED  AND  PUNCHED  RANDOM  OUTPUT 


TEST  CASE  FOR  ADDED 

7.00  .178 

8.00  .A96 


RANDOM  error  (NO.  3) 


.030 

:8i8 

.030 


- J30 
.030 
.030 
.030 


SIMULATED  PROFILE  (NO.  1-B> 


example  XI 
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SIHULAT»'ftATA 

ADDED 

7.00 


PBOriLE  CRO;  T-'B7' 
ERROR 
-.28f 


RAN|^N 

in 


2*5 

175 


■M 
.180 
.091 


( (TOW  TTrOITTT 

(SEJ^gO.  2) 


§!?  M 


8!8 


_3C 

030 


THETA*^2.0»AZIf*«90.0.CODIP«12.0«PAGFLD«5.3E>5t 

tEND 

SIMULATED  DATA  PROFILE  (NO.  1-B) 

ih  l:;8i:8? 

98.0  2,i0E^03 

97.0  J»iOE+Q3 

9^18  2*.l8Eto3 

9*.0  2.1CE*03 

i|;8  i:m:n 

91.0  1.90E-»03 

90.0  1.52E«03 


,50e^02 

.08E«02 

;?li:8i 

;1SI:8; 

,70E*01 


INVERT  INPUT 
EXAMPLE  XII 


;fli 


5.*2E«01 

5:»Si:81 

1:181:81 

1.70E401 

mi 

S.65E40C 

■]IU 

1.93Eto( 


NAME 
8DATUM 
MTSTOP 
STOPS 
NU 
DOP 

DELTAL>0.Q625 
R0TATE>«90.0« 
N1N>9, 

SEND 


>ATUM 

■STOP-10 

rOPS»7flO 


c. 
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SIHULATCD  DATA  PROFILE  (NO.  1-B> 


TTOn 

8. 


I: 

l;8 

^9.9 


AODED  RANDON  ERROR  •** 


TtTT- 

.505 

:iti 
: tl 

m 

isii 


]o 

m 


FULL  NAVE  IN  PUT 
NAVE 


((FOR  THULE)) 

(SET  NO.  2) 




RU^)^' 


tRATUM 

theta  « 

IPRINT  « 


818 


22.0C0  DEGREES  A21P  > 

0 IPROFP  » 1 IRPLOT  * 1 


COftlP  » 12.000  DEGREES  MAGFLD  » 


SEND 


90.000  DEGREES 
5.300-005 


NANE*^*"*^*^  6ATA  PROFILE  (NO.  1-B) 
SDATUH 

HTSTOP(I)  » 100. COO  HTST0P(2)  » 


50.000 


STOPSd)  * 7.000^002  STOPS(?)  * 3.000*000 

IPRNTA  > 0 IPRNTE  « 0 NUFLA6 


HIN  « 
ROTATE  • 
NUFLAG  « 
SEND 


^ on’*nn^  . DELTAH  « 1.000 

4 ?Ar5P®  ALAHDA  • .000  DELTAL  « 

1 COEFNU  . 4.303*011  EXPNU  « -.1622 


PRINTOUT  OF  INVERT  INPUT 


EXAMPLE  XIII 
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IN  OGELB,  lER  * 


-.25?67 

-.25267 

-.25107 

-.24629 

-.23831 


B - values  from  equation  (34) 


■-•.nut 


.3192 
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1 ••08406 

.02214 
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! z:hm 
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T 

etc 


CLlNEfl  ERR  « 

Computed  values  of 

from  equation  (45) 
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.CO 

.uc 

.00 

.00 

.00 

3.33^-0l 

6.S8'»000 

3.1040C0 
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4.2e-»000 

-2.94^000 

3.33»001 

7.68«000 

7.64-001 

-5.99-001 

2.57^000 

2.87-008 

5.844C00 

-2.33^00C 

2.11^000 

-1.45^000 

3. 33^001 

7.88+000 

1.14-008 

-1.52*000 

5.22^000 

6.15-008 

5.84«000 

1.72-009 

5.34«000 

-2.94>000 

\. 


etc 


DATA  VALUES* 
FREQ 

i:8S 

9.00 

10.01 


RE(R) 

•323 
.505 
.463 
.442 


IN(R> 


mi  ill! 


14.00 

^1:88 


.087 

:88; 


|H 

III 

105 


~5r 

etc 


NAG(DRDF)  A(DRDF) 


radians 
dRe 


Itl  \t\i  ♦ 


END  OF  INITILIZATION 


EXAMPLE  XIV 
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PRINTED  INVERT  OUTPUT 
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example  XVII 
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NEW  LAMBDA 


(C) 


(a)  DELTA  LAMBDA  3 * 

^b)  SOLVE  EDS  WITH  .LAMBDA 

«iyiN6  D ■ !l2*1  ..  A..* 


.08839 

3.  » _ .08839 


3 


(d)  EULL-MAVE  SOLUTIONS  3 


(e) 


FREB 

7.00 


(f) 


RE(R)  1M(R)  NA6(DRDF>  A(DRDF) 


II 

S 3 > 6796.962  USIN6  FULL-WAVE  VALUES 


RE(6)  1M(«> 

-.05577  .15869 

-2:|38H 


:i:mn 

-5.53450 
-6.Q6835 
-6.8109 
-6.4082 


44 


•6. 12248  -.11663 


(g)  BLOT  OF  R-VALUES 


(h) 


SITTLE-OOWN— 

SOLVE  EflS  KITH  LANBDA 


4 


.08839 


(1)  (IVlllfi  i fAl"l  ■ . 636i*e7J  p fRIi!f  » *207 

(j)  -MIlO  « .52  AND  SETTLE  PROFILE  4 


(k) 

(1) 

M 


NEW  lambda-—  delta  LAMBDA  5 ■ 

^ SOLVE  ERS  WITH  LAMBDA  5 ■ .21339 

B1VIM6  D ■ •128  JLIMEM  S ■ 4239.557  AND  PROFILE 
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EXAMPLE  XXV 


INFORMATION 

INFORMATION 


CARD  NO. 
CARO  NO. 

.52C 

.A57 

.363 

.258 

.15A 

.069 


FOR  MEASURED 
FOR  MEASURED 


,016 


WAVE 
8FULLWV 

THETA*22.C,A2I'"«9C.0.C00IP«1?.0,MA6FL0  = 5.3E-5 
BEND 
NAME 
BDATUM 
MTST0P« 


STOPS’ 

NUFLA6> 
DOPT*0.6v 
DELTAL«0.0625, 
R0TATE*^90.0 , 
MIN«1, 

BEND 


EXAMPLE  XXVI 

INPUT  TO  INVERT  FOR  CASE  OF  MEASURED  DATA 


» IPROFP*^  , 


I 
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APPENDIX  A 


FORTRAN  LISTING  OF  THE  "FULLWAVE''  COMPUTER  PROGRAM 


rORFlTT*FULLWAVE(  D.MAIN 


1 

2 

3 

A 

5 

6 
7 
S 
9 

10 

11 

12 

13 

U 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
23 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


PROGRAM  FULLWAVE 

KAIN 
FOR  MS 

COMMON/SIG  C0M/S16MA (50) 

COMMON  /R  PNCH/NPUNCH 

common/plot  c/iprofp,irplot, icalcp 
COMMON/RTOLC/RTOL 
COMMON/THETA  C/THETA 
COMMON/FLD  COM/AZ1M,COOIP,MA6  FLO 
COMMON/F  COM/ FLOW  ,FH1 , FINC 
COMMON/EXPNU  C/COEFNU»EXPNU 
COMMON/MPRNT/MPPI M 
COMMON/XPRNT/XPRl  NT 
COMMON/ EXTRA9/IBUFFR(5C0) 

NAMELIST/DATUM/aZ IM,COOIPtMAG  FLOt 
t theta, RTOL, 

» C0EFNU,EXPNU,NUFLAG, 

* IPROFP, IRPLOT, ICALCP.NPUNCH, 

S MPRINT.XPRINT, sigma 

INTEGER  PROF  ,C0LF  .WAVE  ,ADAT, QUIT 
REAL  MAG  FLO 
INTEGER  XPRINT 
OIMENSION  ieco(20) 

OATA  PROF/'PROF'/,COLF/'COLF'/,10EN/'10 
S WAVE/'WAVE'/.AOAT/'  60A'/,1EN0/' 

* QUIT/'OUIT'/ 

OATA  BOATA/'TUM  '/,EN02/'0  '/, NAME / 'NAME 


NPUNCH»1 
THETA  * 0.0 
FLOW  * 0.5 
FHI  « 25.0 
FINC  * 0.5 
RTOL  * 0.001 
MPRINT  > 0 
XPRINT  « 0 
IPROFP-1 
1RPL0T»1 
ICALCPpO 

COEFNU  > 1.816E11 
EXPNU  « -0.15 
NUFLA6  « 0 

PRINT  67 
67  FORMAT('I') 


10  READ  9C1,IBC0 
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tEN'/, 

7 


52 


PRINT  902.1BCD 


53 

IF 

(leCDCI  ) 

.EO. 

PROF) 

GO 

TO 

11 

54 

IF 

!IBCD!1) 

.EG. 

COLF) 

60 

TO 

12 

55 

IF 

!I8CD!1) 

.EO. 

IDEN) 

60 

TO 

13 

56 

IF 

(IBCDd  > 

.EO. 

WAVE) 

GO 

TO 

40 

57 

IF 

(IBCDd) 

.EQ. 

QUIT) 

60 

TO 

905 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

30 

31 

32 
63 

84 

85 

36 

37 

33 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 


1F<IBCD(1)  .EQ.  NAME)  GO  TO  90 
PRINT  900 


900 

905 


11 

12 

13 

90 

550 
555 

444 

557 

551 


’,905) 


CALL  OVCHKC'MAIN 
STOP 

CALL  PRFL  IN 
GO  TO  10 
CALL  COLF  IN 
GO  TO  10 
READ  901,1BCD 
PRINT  902,IBCD 
PUNCH  901,IBCD 
GO  TO  10 


read (5, DATUM) 
■RITE(6,5S0)  ADATfBDATA 
FORMAT!'  ',2A4) 


40 


901 

902 


WRITE (6,555)  AZ I M ,C ODI P ,MAG FLD ,THE TA  ,RTOL 

FORMAT!'  ','  AZIM  = ',F8.3,'  COOIP  « ',F8.3,'  MAGFLD  » ' 

• ' THETA  « ',0PF10.4,'  DEGREES','  RTOL  = ',0PF8,4) 
WR1TE!6,444)  FLOW ,FHI, FINC,NPUNCH 

FORMAT!'  ','FLOH  « ',F10.4,'  KHZ','  FHl  « ',F10.4,'  KHZ 

• ' FINC  » ',F10.4,'  KHZ',  ' NPUNCH  * ',15) 

IFCNUFLAG  .NE.  1)  HRITE(6,5S7)  NU FL AG , COE FNU , EKPNI 

FORMAT!'  ','  NUFlAG  » ',12,'  COEFNU  « ',1PE11.4,'  EXPNU  ' 

• 0PF9,5) 

hRITE!6,551)  1END,EN02 
FORMAT!'  ',2A4,//) 

IF  (NUFLAG  .EO.  0)  60  TO  10 
COEFNU  « 4.303E11 
EXPNU  « -0.1622 
60  TO  10 

call  CONTRL 
GO  TO  10 

F0RMAT!20A4> 

FORMAT!'  ',20A4> 

END 


RT,S  FULLHAVE.SDATA 


1PE10.3, 


, 
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M0RfITT*fULLWAVE(1>.B0ATA 

1 BLOCK  DATA 

2 COMMON/SIG  C0W/SI6MA(50) 

3 DATA  SI6nA/50*G.03/ 

A END 


SPRT,S  FULLUAVE  .PRFLIN 
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K0RFITT*FULLWAVE(1 ) .PRFLIN 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
23 
29 
JO 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


C FOR 
C 


SUBROUTINE  PRFL  IN 
MS 

COMMON /PLOT  C/lPROf P,I RPLOT.ICALCP 
COMMON/NR  OF  AS/NR  A 
COMMON/HTS  COM/HTSCIOI) 

C0MM0N/AL06N  C/ AL OOE N ( 101 ) 

COMMON/EXPNU  C / C 0 EF NU, E X PNU 
DIMENSION  IPCD(20)«HTS  NU(2)tVAL  NU(2} 
DIMENSION  YdOD 
DIMENSION  LINE(81) 

INTEGER  V 

DATA  ISYMN/'’^'/,IBLANK/'  '/ 
data  ALN  TEN/2. 302585/ 

DATA  V/0174000000000/ 

FMESNs4.0*ALN  ten/80. 0 


READ  901t(IPCD(L).L>1f20) 

PRINT  902. (IBCD(L),L«1 .20) 

J * 1 

111  READ  904.HT.EN 

904  FORMAT  ( F7 . 2 . 5X . E 9. 2 ) 

IF(HT  .LT.  0.0)  60  TO  1000 
MTS<J)  * HT 
Y(J)  » EN 

IF(J  .NE.  1 .AND.  HTS(J)  .GE.  HTS(J-I))  STOP 
PRINT  906.HT.EN 

906  FORMAT  ('  '.F7.2.5X.1PE9.2) 

IF  (EN  .LT.  1.0E-20)  EN  » I.OE-20 
AL06EN(J)  > ALOGCEN) 

NR  A * J 
J « J^1 
GO  TO  111 


ENTRY  COLF  IN 
J » 1 

21  READ  905.HT.ENU 
905  F0RMAT(F7.2.4X.3(1X.1PE9.2)) 

PRINT  888.HT.ENU 

888  FORMATC'  '.F7.2.4X.3(1X.1PE9.2)) 

IF  (HT  .LT.  0.0)  GO  TO  23 
IF  (J  .GE.  3)  60  TO  27 
HTS  NU(J)  « HT 
VAL  NU(J)  « ENU 
J ■ 

60  TO  21 

23  EXP  NU  « AL06(VAL  NU(1)/VAL  NU(2))/(HTS  NU(1)-HTS  NU(2)) 


t 
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COEFNU  s VAL  NU  ( ^ E XP  (-E  XP  NU*HTS  NU<2)) 

RETURN 

1000  CONTINUE 

IFCICALCP  .EO.  0)  GO  TO  75 
CALL  eCNPLd) 

CALL  TITLE (IBCDfAC, 'ELECT RONS', 9, 'ALT  I TUBE', 8, 5,, 5.) 
CALL  XL06(.1,1.,0.,?0.) 

CALL  CURVECT ,HTS,NRA,0) 

CALL  ENOPLd) 

T5  IFCIPROFP  .Ea.  0)  GO  TO  76 
PRINT  60 
60  FORWAT('I') 

PRINT  100,V ,V  ,V  ,V  ,V 

100  FORMAT  ('0',5X,'HT',9X,'N',18X,  a1,19('-'),  a1,19('-'), 

* A1,19('-'),  A1,19('-'),  A1) 

DO  11  J=1,NP  A 

DO  50  K * 1,31 
50  LINE(K)  = I0LANK 

JPOST=ALOGEN( J)/FMESH*1 .5 

IFCJPOST  .GE.  1 .AND.  JPOST  .LE.  81) 

*LINE(  JP0ST)»ISVMN 
11  PRINT  105  , NTS  (J)  ,Y( J ), V, LINE, V 
105  FORMAT  ('  ',F7.2,1X,1PE9.2,17X,  Al,8lAl,  A1) 

PRINT  501  ,V  ,V  ,V  ,V  ,V 

501  FORMAT!'  ',35X,  Al,19('-'),  A1,19('-'),  A1,19('-'),  A1, 

• 19('-'),  A1  ) 

PRINT  502 

502  FORMAT!'  ' , ’ 5 X , '0 ', 1 9X , ' 1 ' , 1 9X , '2' , 1 9X , ' 3' , 1 9X , ' 4 ' ) 

76  CONTINUE 
RETURN 

27  PRINT  907 

907  FORMAT  !'0','TW0  HTS  ONLY  ALLOkEO  IN  NU  PROFILE') 

STOP 

901  FORMAT  !20A4) 

902  FORMAT  !'  ',20A4) 


• •PRT,S  FULLWAVE.INITLR 
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MORF ITT* 
1 
2 

3 

4 

5 

6 
7 

3 

9 

10 

11 

12 

13 

U 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
23 
29 

30. 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


FULLHAVE(1).INITLR 

SUBROUTINE  INITL  R 
C FOR  MS 
C 

COMMON/XPRNT/XPRINT 

COMMON/M  MTX/m11,m21,m31,m12,m22,m32,m13,m23,m33 
COMMON/ INTEGR/RI 1 ,R21 tR12,R22 
COMMON/C  COM/C, S 
COMPLEX 

Ml1,M21,M31,Ml2,M22,M32,Ml3,M23,M33t 
R11 «R21  ,R12.R22, 

CITEMP(4),E1PI04,Q(2), 

B4  ,B3  ,B2  ,B1  ,B0, 

Dll, 012,D13, 031,032, 033, 

P(2)  ,T(2) , 

DEN, FACTOR 
INTEGER  XPRINT 

DATA  E1PI04/ <0.707107 ,0.707107) / 


CSO  = C**2 

B4  s 1.0*M33 
B3  = S*(M13*M31) 

B2  = -(CSQ7M33)*(1.0*m11)*m13*m31-<1.07M33)*(CSO*M22)*m23*'132 
81  = S*<Ml2*M237M21*M32-(CS0tM22)*(Ml3*M31)> 

BO  = (1.0*m11)*(CSO*M22)*(CSQ*m33)*m12*m23*"'31*m13**'21*m32 
$ -M13*(CS8*M22)*M31-(1 .0*m11)*M23*M3?-M12*M21*(CS07M33) 

CALL  QUARTC (B4  ,P3  ,B2,B1 ,BO,OTEMP) 

K « U 

00  21  XT»1,4 

IF  (REAL(EIPI04*QT£MP(kT))  .LT.  0.0)  60  TO  21 
X » K*1 

IF  (K  .GE.  3)  GO  TO  90 
Q(K’)  « OTEMP(KT) 

21  CONTINUE 

IF  (K  .NE.  2)  60  TO  90 

IFCXPRINT  .NE.  C)  PRINT  901 , ( Q ( J ) , J « 1 , 2 ) 

901  FORMAT('0','Q«  ',2(E1S.4,E13.4) ,/) 

DO  31  J«1,2 

011  « 1.0*M11-Q(J)**2 

012  « M12 

013  « M13*KJ)*S 

031  » M31*Q(J)*S 

032  « M32 

033  « CS0*H33 

DEN  » 011*033-013*031 

Pij)  « (-012*033*013*032)/0EN 
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r 


52 

31 

T(J)  » Q(J)*P(J)>S*(-d11*D324D12*D31)/DEN 

53 

C 

54 

OEN  * (T<1)*C^P(1))*(C^O(2))-(T(2)*C>P(2))*(C^a(1)) 

55 

FACTOR  s 2.0/DEN 

56 

R11  * <T(1)*(C>0(2))-T(2)*<C^8{1)))*FACT0R 

57 

R22  = ((T(1)*C»P(1))-(T(2)*C*P(2)))*FACTOR 

58 

R12  * -(TC1)*P(2)-T(2)*P<1))*FACT0R 

59 

R21  = -(0(1)-0<2) )*FACTOR 

60 

RETURN 

61 

C 

62 

90 

PRINT  9C0 

65 

900 

F0RPAT('0','PR0BtEN  IN  SORTING  Q VALUES') 

64 

STOP 

65 

C 

66 

END 

iPRT.S  FULLWAVE.T»«TRX 
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MORFITT* 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


FULLWAVCdl.TMTRX 

SUBROUTIMC  T MTRX 

ns 


C FOR 
C 


COnnON/FRO  C0H/FRE9 

connoN/FLO  con/RZ intC0ftiP*n«6  fld 

COnnON/MN/UAVE  NR 
COFinON/EN  COLL/HT,COLLtEN 

connoN/n  ntx/nii tn21 tn3l »ni2tM22tM32tni3»n23tn33 

COMMON/ STORE  X/X11(001) » X44( 001 > t X 12 < 001 ) , X34( 001 ) t X 1 4 (001 ) t 


x31(001>tX42(001),x32(001)«X41(001> 


COMPLEX 


S U,USOfO,lUO, 

S US«OtTA,TB, 

S 0 TEMP» 

S M130«m31D,M23d«m32D» 

S M2332D«M1331D»M233lD,M3213Dt 

$ M11,M21  ,M31  ,M12,M22,M3''2,M13,M23,M’'3,  - - 

S Xl1,X44tXl2tX34tXl4(X31 tX42>X32,x4l 

REAL  MAO  FLOfLy^My^Ny ,1U0  PRT, 

S*  LSBTSO  »MSOySQ,N$OySOtLMVSa  tLNTSQ tMNTSQ 

DIMENSION  U PARTS(2)tUSB  PRT(2)t6  PARTS(2)»1UD  PRT(2) 
EOUIVALENCE  (UtU  PART S( 1 >), (USB , USQ  PRT(1)), 

* (0,0  PARTS(1)),(1U0,1U0  PRT(1>) 

OATA  PI/3. 141592653/ 

OATA  OTR/0. 01745329252/ 

OATA  COEFF  X/3.182357E03/,COEFF  T/I .758796E1 1/ 

OATA  VEL  LT/2.997928C05/ 


CALL  EN  NU 

X > COEF  EN*EN 
Z > COLL*OV  OMGA 
U PARTS(I)  « 1.0 
U PARTS(2>  « -Z 
USO  /»RT(1)  « 1.0-2*»2 
PRT(2)  » -Z-Z 

-x/(u*(usa-yso>) 

PRTdJ  » Z*0  PARTS(1>-0 
PRT(2)  * 0 PARTS(1)4Z*0 


USB 
0 » 
lUO 
lUO 

USBD  « USB«0 

Mil  > USBD-LSBYSB*D 
M22  > USB0»MSBVSB*0 
M33  ■ USBO-NSBYSB*D 
TA  > NT*IUD 
TB  « LMrSB*0 
M21  • ♦TA-TB 
M12  > -TA-TB 
TA  ■ MT*IUO 
TB  ■ LNYSB*» 


PARTS(2) 

PARTS(2) 
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52 

M13  * ♦TA-TB 

53 

K31  = -TA-TB 

54 

TA  « LY*IUD 

55 

TP  = PNYS0»0 

56 

P32  = ♦TA-TB 

57 

P23  = -TA-TB 

53 

C 

59 

D = 1.0/{1.0tw33) 

60 

P130  » M13*0 

61 

P31D  * l»31*0 

62 

M230  * M23*0 

63 

p32D  = W32*0 

64 

W23320  * M32*w230 

65 

M1331D  = M31*W13D 

66 

P2331D  * m31«P230 

67 

K32130  * M32*M130 

63 

c 

69 

L = 1 

70 

XIKl)  » -«310 

71 

X44(l)  « -M130 

72 

X12(U)  * P320 

73 

X34(L)  » P230 

74 

Xl4(|.)  ‘ 0 

75 

X31(L)  » K23310-M21 

76 

X42(L)  s M32130-P12 

77 

x32(l>  * P22-P23320 

73 

X41(l)  * 1 .04M11-P1331D 

79 

RETURN 

dC 

c 

81 

c 

82 

ENTRY  INIT  T 

a3 

0«*EGA  » 2.0*PI*EREe*1C00.0 

84 

WAVE  NR  s ONEGA/VEL  LT 

85 

COEF  EN  « COEFF  X *1 . 0 E06 / OPE G A* * 2 

86 

OV  OMGA  > I.O/OMEGA 

87 

SIN  DIP  « SIN (COO  1P*DTR> 

68 

OIR  CS  L * SIN  D1P*COS(AZIN*OTR> 

09 

DIR  CS  P > SIN  DIP*SIN(AZIN*OTR) 

90 

OIR  CS  N * -COS(CO  OIP*OTR) 

91 

Y » -COEFF  Y4PAG  FLO/OHEGA 

92 

YSO  ■ Y**2 

93 

LY  « OIR  CS  L*Y 

94 

PY  « OIR  CS  P«Y 

95 

NY  « OIR  CS  N*Y 

96 

LSQYSQ  > OIR  CS  L**2*YSQ 

97 

NSRYSfl  « OIR  CS  H**2«YS« 

98 

NSQYSQ  > OIR  CS  N**2*YS0 

99 

LNYSG  • OIR  CS  L*0IR  CS  M«VSa 

100 

LNYSa  ■ OIR  CS  L*OIR  CS  N*TSa 

101 

PNVSa  ■ OIR  CS  P*OIR  CS  N*TSa 

1U2 

RETURN 

103 

c 

107 


MORFITT*FULLbAVE( 1) .ENNU 

1 SUBROUTINE  EN  NU 

2 C FOR 
5 C 

4 COMNON/NR  OF  AS/NR  A 

5 COMRON/JAY  COM/J 

6 COMWON/HTS  COH/HTS(101) 

7 C0M»'ON/AL06N  C / A L 06E N (1  01  ) 

S COFIRON/EXPNU  C /COEFNU  ,EXPNU 

9 CONPON/EN  COLL/HT  ,ENU  ,EN 

10  C 

11  C 

12  F1  » (HT-HTS(J4l)  )«rACTR 

15  F2  s (HTS(J)-MT)*FACTR 

U EN  « EXP(AL06EN(J)*F1«AL06EN(J4’1>*F2) 

15  ENU  = COEFNU*EXP(EXPNU*HT) 

16  RETURN 

17  C 
ie  C 

19  ENTRY  SET  FTR 

20  FACTfc  » 1.o/(HTS(J)-HTS(J»1)) 

21  RETURN 

22  C 

25  END 


«PKTtS  FULLWAVE.INTEG 
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r*ORnTT*FULLWAVE  (D.INTEC 

1 

SUBROUTINE  INTEC 

• 

2 

c 

FOR 

NS 

5 

c 

• 

4 

CONNON/RTOLC/RTOL 

5 

CONNON/NR  OF  AS/NR  A 

6 

CONNON/HTS  C0N/HTS(101) 

7 

CONNUN/XPRNT/XPRINT 

8 

CONNON/INTEGR/R(8>,6RON(8> 

9 

CONNON/X  INTGR/X (8)  •DXDH(8) 

10 

CONNON/EN  COLL/HT 

11 

CONNON/WN/mAVE  nr 

12 

CONNON/OVRFLO/ lOVFLO 

13 

CONNON/JAT  CON/JAT 

14 

OINENSION 

15 

t 

R0(l6)tH0ELR0(16),0ELRl(16),0ELR2(16), 

16 

s 

X0(8)rHDELXC(8)»0ELXl(8)«DELX2(8), 

17 

s 

R SAVE(16), 

18 

s 

ftKHTS(401) 

19 

INTEGER  XPRINT 

20 

DATA  NAX  nr/401/ 

21 

DATA  DHPIN/0.01/ 

22 

c 

23 

c 

24 

N > b 

25 

lOVFLO  * 0 

26 

IFIXPRINT  .NE.  0)  CALL  R COLS 

. 

27 

THIRD  * 1. 0/3.0 

28 

CALL  INIT  T 

29 

JAY  * 1 

30 

JRK  > 1 

31 

HT  * HTS(I) 

32 

CALL  SET  FTR 

33 

CALL  S NTRX 

34 

call  INITL  R 

35 

c 

36 

CALL  XFER  (R,X,8) 

37 

IFCXPRINT  .NE.  0)  PRINT  901 

38 

901 

FORNAT  ('0') 

39 

IFCXPRINT  .NE.  0)  CALL  PRINT  R 

40 

c 

41 

NRANI  > NR  A>1 

• 

42 

DO  7V  J«1,NRAN1 

43 

JAY  > J 

44 

CALL  SET  FTR 

45 

30 

CALL  XFERCR.R  SAVE.N) 

46 

KT  « RKNTS(JRK) 

47 

CALL  XFER  (RtX,8) 

• 

48 

31 

DELH  > (RKNTSC JRK«1)-RKHTS(JRK) )*0.5 

49 

IF  (ABS(DELN)  .LT.  DHNIN)  60  TO  90 

SO 

OH  ■ DELN*hAVE  NR/2.0 

SI 

HDN  > 0.S*0N 

no 


52 

53  C 

54 

55 

56  C 

57 
S3 

59 

60 

61  C 

62 

63 

64 

65 

66  C 

67 
63 

69 

70 

71  C 

72 

73 

74 

75  C 

76 

77 

73  C 
79 

30 

31 

82  C 

33 

84 

35 

36 

87 

88  C 

89 

90 

91 

92 

93  C 

94 

95 

96 

97  C 

98 

99 
100 

101  C 

102 
103 


TDH  s 2»0*DH 

call  r deriv 

IF  (lOvFLO  .NE.  0)  60  TO  60 

DO  32  1>1,N 
R0(1)  * R(I) 

«>HDELRO(I)  s DRDH(I)*HDH 

32  R(I)  > R0(I)«HDELR0(1) 

00  33  I»1,S 
XO(I)  « X(I) 

HDELXO(I)  > HDELR0(I)*2.0 

33  X(I)  » XOCD^HOELXCd  > 

HT  = HT*0.5*0ELH 
call  S I»TRX 
call  R OERIV 

IFCIuVFLO  .NE.  0)  GO  TO  60 

DO  34  1*1, N 
DELRKI)  * DRDH(I)*DH 

34  R(I)  » R0(1)40.5*DELR1(I  ) 

CALL  R DERIV 

IFdOVFLO  .NE.  0)  GO  TO  60 

DO  35  1*1, N 
DELR2(I)  * ORDH(I)*DH 

35  R(I ) « RC(I)4DELR2(I) 

HT  » HT40.5*DELH 
CALL  S RTRX 
CALL  R DERIV 
call  X DERIV 

IFCIOVFLO  .NE.  CO  TO  60 

DO  36  1*1  ,N 

HDELR3  > DROH(I)*HOH 

0ELR4  « (HDELR0(1)«0ELR1(1)«0ELR2(I)4N0ELR3)*TN1R0 

36  R(I)  > R0(I)4DELR4 

DO  37  I«1,8 

DELXKl)  • DXDH(1)*TDN 

37  X(l)  « x0(I)«0.5*DELX1(I) 

CALL  R DERIV 
CALL  X DERIV 

IFdOVFLO  .NE.  0)  60  TO  60 

DO  4c  la1,N 
‘ ROCI)  > RCl) 
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104 

HDELRO(I)  « DRDH(I)*H0H 

105 

42 

R(I ) > R0(1)«HDELR0(I  ) 

106 

C 

107 

DO  43  1*1,8 

108 

DELX2(1)  ■ DXDH(I)*TDH 

109 

43 

X(1 ) * X0(1>«DELX2(I> 

110 

C 

111 

MT  « HT40.5*DELM 

112 

CALL  S ^TRX 

113 

CALL  R OERIV 

114 

irClOVELO  .NE.  0)  60  TO  60 

115 

C 

116 

DO  44  1*1, N 

117 

DELRKl)  * DRDHdXDH 

118 

44 

R(I)  * R0(I)«0.5*DELR1(I) 

119 

C 

120 

CALL  R DERIV 

121 

ITCIOVFLO  .NE.  0)  60  TO  60 

122 

C 

123 

DO  43  1*1, N 

124 

DELR2(1)  * DRDH(I)*DH 

125 

45 

R(l)  * R0(1>*DELR2(1) 

126 

C 

127 

MT  * HT^0.3*DELH 

128 

CALL  S MTRX 

129 

CALL  R DERIV 

130 

CALL  X DERIV 

131 

IFCIOVFLO  .NE.  0)  60  TO  60 

132 

C 

133 

DO  46  1*1, N 

134 

MDELR3  * D«DH(1>*NDH 

135 

DELR4  * (HDELR0(1)«DELR1(1>*DELR2(1)«HDELR3)*THIRD 

136 

46 

R(I  ) * R0(1)«DELR4 

137 

C 

138 

DO  47  1*1,3 

139 

HDELX3  * DXDH(1)*DH 

140 

9CLX4  * (MDELXOCI }«DELX1(1 )«DELX2(1>«HDFLX3)*TH1RD 

141 

47 

X(l)  * X0(1>«DELX4 

142 

C 

143 

lf(Xf>RlNT  .NE.  0)  CALL  PRINT  R 

144 

DO  51  1*1, 7, 2 

145 

ERRSQ  « (R(1)-X(1))**24<R(X1)-X(1>1))**2 

146 

RSQ  * R(I)**2«R(141)**2 

147 

IF  (NSO  .6T.  1.0)  ERRSQ  * ERRSQ/RSO 

148 

IF  (ERRSQ  .6T.  RT0L**2)  60  TO  61 

149 

51 

CONTINUE 

150 

60  TO  70 

151 

C 

152 

60 

IF  (XPRINT  .NE.  0)  CALL  PRINT  R 

153 

61 

IF  (XPRINT  .NE.  0)  PRINT  960 

154 

960 

FORMAT  ('  ','OVRFLO') 

155 

IF  (NR  RK  .6E.  MAX  NR)  60  TO  95 

156 

iovflo  = 0 

157 

CALL  XFER(R  SAVE,R,*«> 

159 

CALL  XFER  (R  SAVEfX,8) 

159 

MT  * FKHTS(JRX) 

160 

CALL  i F»TRX 

161 

C 

162 

NRRXHl  * NR  RX-1 

163 

00  62  JC0UNT»JRX,NRRKF‘1 

164 

JJ  * NRRKN1-JC0UNT4JRX 

165 

62 

RXHTS(JJ*2)  * RXHT«:(JJ4l> 

166 

RXHTS(JRXAl>  * (RKHTS  (J RX ) ARKHTS ( J RXA?) ) *0. 

167 

NR  RK  » NR  RK«1 

169 

60  To  31 

169 

C 

170 

70 

JRK  * JRK'Al 

171 

IF  (AES(RXHTS( JRKI-HTSCJ^I ))  .GT.  0.001)  60 

172 

79 

CONTINUE 

173 

RETURN 

174 

C 

175 

C 

176 

ENTRY  SET  RK 

177 

DO  FI  J>1,NR  A 

17S 

81 

RKHTS(J)  » HTS(J) 

179 

NR  RK  s NR  A 

190 

RFTURN 

181 

C 

182 

90 

PRINT  990 

183 

990 

FORRAT  ('O', 'STEP  TOO  S^ALL  IN  INTEG') 

184 

STOP 

185 

C 

186 

95 

PRINT  995 

187 

995 

FORRAT  ('O', 'TOO  RIANT  STEPS  IN  INTEG') 

188 

STOP 

189 

C 

190 

END 

spor.s 

7ULLW«VE*R0ur 
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l»0RFITT*fULLW»VE(1  ).ROUT 


1 

SUBROUTINE  R OUT 

2 

C 

FOR 

PS 

3 

C 

4 

C0NM0N/1NTEBR/R(8) 

5 

COMMON/X  InT6R/X(8) 

6 

CONWON/EN  C0LL/HT,EC  0MIT(2) 

7 

c 

S 

c 

9 

ENTRY  R COLS 

10 

PRINT  9C0 

11 

900 

FOHP4T('0',8X,'HT',10X,'11R11',16X,'11R1',16X,'1R11',17X,'1R1') 

12 

RETURN 

13 

c 

14 

c 

15 

ENTRY  PRINT  R 

16 

PRINT  901 ,HT t <* < I ) fl* It  8) 

17 

PRINT  9C1,HT,(R(1),I*1,8) 

19 

901 

FORNATC'  ',F10.2,4(2x,F9.5,F9.5)) 

19 

PRINT  902 

20 

«02 

FORPAT  ('O') 

21 

RETURN 

22 

c 

23 

END 

SPRT,S  EULLWAVE.S'*TRX 
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HORFITT*fULLWAVE  ( D.SHTRX 

1 SUBROUTINE  S NTRX 

2 C FOR  NS 

3 C 

A CONNON/TMETA  C/THETA 

5 COMMON/STORE  X / X 1 1 ( 001 ) , X44 ( 001 ) , X 1 2 ( 001 ) , X 3 A ( 00 1 ) , X 1 4 <001 ) t 

6 $ x31(001>,X42(001)tX32(001>,X41(001) 

7 COMNON/C  COH/C,S 

8 COMMON/S  MTX/Al1tA22»8l1,Bl2tB22fCl1tC21tC22tDl1tD21t0l2t022 

9 COMPLEX 

10  S Xl1,x44,Xl2,X34»Xl4,x31,X42,x32,X41t 

11  S TEMP,TWOC, 

12  S Al1,A22,Bl1,Bl2,B22,Cl1,C21tC22,Dl1,D21,Dl2,D22 

13  DATA  RTO/57. 29578/ 

14  C 

15  C 

16  CALL  T MTRX 

17  C 

18  L * 1 

19  TEMP  « X41  (D^XAI  (L) 

20  All  « TEMP+TEMP 

21  A22  « 4.0 

22  TEMP  ■ S*X44(L)-C*X41 (L) 

23  B11  « TEMP+TEMP 

24  B12  > -X42(L)-X42  (L) 

25  TWOC  « C^C 

26  622  * -TWOC 

27  TEMP  « -S*X11 (L)-C«X41(L) 

28  C11  « TEMP^TEMP 

29  C21  « X31 <L>>X31 (L) 

30  C22  > -TWOC 

31  011  » CS*(X11 (L)-X44(L>)-(1.0-X14<L>)^CSO*(X41(L)-X14(L)) 

32  021  » -C*X31 <L)^S«X34  (L) 

33  012  > S*X12(L)«C*X42U) 

34  022  > -X32(L) 

35  RETURN 

36  C 

37  C 

38  ENTRY  INIT  S 

39  C ■ COS(THETA/RTO) 

40  CSO  ■ C**2 

41  S > S1N(TMETA/RT0) 

42  CS  ■ C*S 

43  RETURN 

44  C 

45  ENO 


8PRT,S  FULLWAVE.OlFFia 
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MORFlTr*FULLWAVE(  D.DIFFEO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

U 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


SUBROUTIKE  OlFF 
FOR  F<S 


EO 


C0F1M0N/  INTEGR/R(8  ) «DRDH(8) 

COF*MON/X  INTGR/X  (8)  tD  XDH  (8> 

CORFiON/S  Firx/A11  ,A22,B11,Bl2,B22tC11  tC21»C22r611i021»Dl2>622 
C0nr*0N/EXTRA7/Rl  1 ,R21tRl2,R22» 

5 DR11DH,DR21DH,DR12DH,0R22DH 

COKFiON/OVRFLO  / lOVFLO 

complex 

R11 .R21  .Rl2,R22t 
DR11DH,DR21DH,DR12DH,DR220H« 

A11,A22,E11 ,e12,B22,C11,C21,C22,0l1,021,0l2,D22, 
011R11 ,D12R21,021R12,022R22, 

R11R22.R12R21 

DIMENSION  R MTRX (16) tDERlV (16) 

E0UIVALENCE(R11>R  MTRX), (DRiiDH, DERI  V) 


ENTRr  R DERIV 

CALL  XFER  (R,R  MTRX, 8) 

IXFLAG  = C 

20  DO  21  i«i,a 

lF(AfaS(R  MTRX(I))  .6T.  1.0E4)  GO  TO  90 

21  continue 


011R11 

D12R21 

D21R12 

022R«2 

R11R42 

R12R21 


D11*R11 

012*R21 

D21«R12 

D22*R22 

R11*R22 

R12*R21 


24 


DRIIDM  » AllA(el1-»Cl1*0l1Rll4Dl2R21*021R12)*Rl1 
i ♦b12*R21*C21*R12>D22*R12R21 

DR21DH  » (B22*C11'»D11R11^012R21^D22R22)*R21 
i ♦C21*P224D21*R11R22 

0R12DN  « (B11«C22«D11R11«D21R12«D22R22)*R12 
I ♦812»R22^D12«R11R22 

0R220M  * A22«(b22«C22«D12R21^D21R12«D22R22)*R22 
i ♦D11*R12R21 

IF  (IXFLAG  .NE.  0)  60  TO  40 

DO  2n  I*1f7,2 
DRDHd)  > DERIV(I«1) 

DR0H(1«1)  > -DERIV(I) 

RETURN 


ENTRY  X DERIV 

CALL  XFER  (X,R  MTRX, 8) 
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52 

IXFLA6  > 1 

53 

GO  TO  20 

54 

C 

55 

40 

DO  42  1>1,7,2 

56 

DXOH(I)  * OERIV(I-H) 

57 

42 

DXDH(I*1  ) * -OERIVd) 

58 

RETURN 

59 

C 

60 

90 

lOVFLO  * 1 

61 

RETURN 

62 

C 

63 

END 

aPRTtS  FULLWAVE.CONTRL 


M0RfITT»fULLWAVE(1  ) .CONTRL 


1 

SUBROUTINE  CONTRL 

2 

C 

3 

CONMON/SIG  C0M/S1GMA(50) 

4 

COMMON  /R  PNCH/NPUNCH 

5 

COMMON/NRF  COM/NPOINT 

6 

COMMON /PLOT  C /IPROFP,! RPLOT.ICALCP 

7 

COMMON/RDATA  C/ X ( 50 ) , V ( 5 0 ) , F ( SO) 

3 

COMMON/F  C0M/FL0U,FH1,FINC 

9 

COMMON/FRO  COM/FREO 

10 

COMMON/INTEGR/Rl  1 ,R21,Rl2tR22 

11 

COMMON/C  COM/C 

12 

COMPLEX  R11,R21,R12,R22, 

13 

1 

CPLX  I,R 

U 

DATA  CPLX  1/(0. 0.1.0)/ 

15 

AL AST»-99.9 

16 

C 

1-» 

C 

13 

PRINT  900 

19 

900 

FORMAT  ('1',6X,'F',13X,'R',16X, 'sigma',/) 

20 

CALL  INIT  S 

21 

CALL  SET  RX 

22 

C 

23 

FREQ  > FLOW 

24 

NPOINT  * 0 

25 

11 

CALL  INTEG 

26 

NPOINT  * NP0INT*1 

27 

F(NPOINT)«FREO 

28 

h11  * C*R11-1.0 

29 

h21  * C*R21 

30 

R12  * C*R12 

31 

R22  * COR22-1.0 

32 

R * (-R22*CPLX  I*Rl2)/(-R22-CPLX  I*R12) 

33 

X(NPOINT)  > REAL(R) 

34 

Y(NPOINT)  « AIMAG(R) 

35 

PRINT  910, FREQ, R,SI6MA(NP0INT) 

36 

910 

FORMAT  ('  ',F7.2,3X,2F9,3,3X,F10.3) 

37 

IFCNPUNCH  .GT.  C)  PUNCH  1 03 , F R EQ , R , S 1 6M A (N PO I NT ) 

33 

103 

FORMAT (F 7.2,3 X ,2 F 10.3, F10.3) 

39 

C 

40 

FREQ  « FREO«FINC 

41 

IFCFREO  .LE.  FHI ) GO  TO  11 

42 

PRINT  910,ALAST 

43 

IFCNPUNCH  .GT.  0)  PUNCH  103,AL4ST 

44 

C 

45 

C 

IFCICALCP  .EQ.  0)  GO  TO  75 

46 

C 

CALL  BGNPL(I) 

47 

C 

CALL  CROSS 

48 

C 

CALL  TITL£('  ', 1 , 'RE AL ', 4 , ' IMA6' , 4 ,8 . , 8. ) 

49 

c 

CALL  GRAPH{-1.,. 25,-1. ,.25) 

50 

c 

CALL  MARKER(3) 

51 

c 

CALL  CURVE (X  ,V, NPOINT, 1) 

118 


52 

C 

CALL  ENDPLd) 

53 

C 

54 

75 

IFdRPLOT  .EQ 

55 

PRIM  60 

56 

60 

FORPAT('I') 

57 

CALL  RPLOTS 

58 

c 

59 

76 

CONT  INUE 

60 

RETURN 

61 

c 

62 

END 

aPRT,S  FULLWAVE.aUARTC 
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H0RF1TT*FULLUAVE(1).QUARTC 


1 

2 

5 

4 

5 

6 
7 
3 
9 

10 

11 

12 

13 

14 

15 

16 
17 
13 
19 
2C 
21 
12 

23 

24 

25 

26 
27 
23 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


SUBROUTINE  QU A RTC  (6 4 f FOUR  B3tSIX  e2fF0UR  BitONE  SO.O) 

C FOR  NS 
C 

CONPlEX  four  B3tSIX  B2,F0UR  BifONE  B0,Q«84, 

1 H.l.GtH  PRINEt6  PRlNEf 

i so  ROOT,P  POSyPtLOC  Py 

S CUB  RTOyCUB  RTlyCUB  R T2 y ON EG A 1 ,OME G A 2y 

1 ROOT  PyROOT  OyROOT  Ry 

1 TbLV  B3yTWLV  B 2 y F y 0 FDQ y 0 EL  QyFB4 

C0PPLEX»16  B3 yB2 yBl yflC,B3  SO 
REAL  NAG  POSyNAG  NEG 
DINFNSION  0(4), P Rl(2) 

EOUIVALENCECPyP  RI) 

DATA  ONEGAl/ (-0.5  yO. 8660254038) 7 yONEGA2/ (>0.5,-0.3660254038)/ 
DATA  PRECSN/1 .OE-4/ 

C 

C 

P3  = FOUR  83/(4. 0‘B4) 

B2  » SIX  62/(6.0*64) 
el  = FOUR  8l/(4.C*e4) 

BO  s ONE  eO/B4 

c 

b3  So  = 63**2 
H * 32-B3  SO 

1 = faU-4 .0*63*61 *3. 0*B2**2 
G = o1*P3*(-3. 0*92*2. 0*63  SO) 

H PRINE  * -1/12.0 

G PRINE  * -G**2/4.C-H*(M**2*3.0*H  PRINE) 

C 

SO  ROOT  » CSORT(G  PRI NE **2*4  ,0*H  PRINE** 3) 

P a (-G  PRINE*SO  R00T)*0.5 

NAG  POS  = ABS(P  RI(1))*ABS(P  RI(2)) 

P POS  » P 

P « (-G  PRINE-SO  R00T)*0.5 

NAG  NEG  * AeS(P  RI(1))*ABS(P  RI(2)) 

IF(NAG  POS  .GT.  NAG  NEG)  P » P POS 
LOG  P « CLOG(P) 

CUB  RTO  a CEXP(L06  P/3.0) 
cue  RT1  a 0NE6A1*CUB  RTC 
CUB  RT2  a 0NEGA2*CUB  RTO 
C 

ROOT  P a CSORT(CUB  RTC-M  PRINE/CUB 
ROOT  0 a CSORT(CUB  RTl-H  PRINE/CUB 
ROOT  R a CSORT(CUB  RT2-H  PRINE/CUB 
C 1F(CABS(6)  .LT.  1.0E-S0)  60  TO  21 

IF(CABS(G)  .LT.  1.0E-36)  60  TO  21 
SIGN  a -ROOT  P*ROOT  0*R00T  R*2.0/6 
IF(SI6N  .LT.  0.0)  ROOT  R a -ROOT  R 
21  0(1)  a ♦ROOT  P*ROOT  0*R00T  R-B3 
0(2)  a *R00T  P-ROOT  0-ROOT  R-B3 
0(3)  a -ROOT  P*ROOT  O-ROOT  R-B3 


RTO-H) 

RTl-H) 

RT2-M) 

TJN 

TJN 


r 


52  0(4)  * -ROOT  P-ROOT  Q^ROOT  R-B3 

53  C 

54  FP4  > 4.C*B4 

55  TWLV  P3  = 3.C*F0UR  83 

56  TWUV  82  = 2.0*SIX  62 

57  00  52  J=1,4 

58  ITEP  = 0 

59  51  F = (((P4*0(J)+F0UR  B3)*0(J)4S1X  B 2) *0 ( J ) ♦ FOUR  Bl)*0<J)40NE  BO 

60  DFOO  - ( (FB4*Q (JI^TWLV  B 3) *0 ( J ) ♦ TWL V B 2) *0 ( J ) ♦ FOU R Bl 

61  DEL  0 = -F/DFDQ 

62  Q(J ) = 0(J)40EL  0 

63  IF(CA8S(DEL  Q/0(J))  .LT.  PRECSN)  60  TO  52 

64  ITER  = ITER»1 

65  IFCITER  .GE.  10)  60  TO  90 

66  GO  TO  51 

67  52  CONTINUE 

63  RETURN 

69  C 

70  90  PRINT  900 

71  900  FORt'AT  {'O'.'Q  fails  TO  CONVERGE  IN  OUARTC') 

72  STOP 

73  C 

74  END 


£PRT,S  FULLWAV E.X FER 


I 
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► 


«0RF1TT*FULLMAVE(1  ).XFER 

1 SUBROUTINE  XFER  (A,9,N) 

2 c FOR  ns 

3 C 

4 DinENSION  A(1)(B(1) 

5 C 

6 C 

7 00  11  J*1fN 

S 11  B(J)  » A(J) 

9 RETURN 

10  C 

11  end 


SPRT.S  FULLHAVE.RPLOTS 


r 


H0RF1TT*FULLWAVS<1).RPL0TS 

1 SUBROUTINE  RPLOtS 

2 C 

3 COMMON/RDATA  C /X ( 50) . Y ( 5 0) , F ( 50 ) 

A COMNON/NRF  COM/NR  F 

5 DIMENSION  I S VMD ( 5 0) t X D( 5 0) , V 0 ( SO ) , 

6 • LINEdOD 

7 INTE&ER  V 

8 C 

9 DATA  ISrH0/'1'’,'2‘’,'3', ‘'4‘’,'5','6','7','8','9','0', 

10  • 'A','B','C','0','E','F','6','H','I','J', 

11  • 'X','L','M','N','0','P','0','R','S','T', 

12  * 'U','V','w','x','Y'.'2','1','2','3','4'/ 

13  DATA  IBLANK/'  '/ 

14  DATA  V/01740000000007 

15  C 

16  XMAX«-1.0E9 

17  XPlNe4l,0E9 

18  YMAX=-1.0E9 

19  YP1N*41.0E9 

20  C 

21  DO  10  L«1  ,NR  F 

22  XD(L)«X(L) 

23  YD(L)*Y(L) 


24 

1F(XD(L) 

.LT. 

XPIN) 

XPIN*XD(L) 

25 

IF(XD(L) 

• 6 T • 

XPAX) 

XPAX«XD(L) 

26 

if<yd(l) 

.LT. 

YMIN) 

YNIN«YD(L) 

27 

IF(YD<L) 

.GT. 

YPAX) 

YMAX«YD(L) 

28 

10  CONTINUE 

29  C 

30  1 F(  (XMAX-XM1N)/10.0  .E>T.  ( YM AX -YM I N)  / 6 .5  ) GO  TO  100 

31  TMESH>(YPAX-YM1N) /52.0 

32  X'»ESH«YMESM*0.8 

33  XMAX«XMIN^(100.0*XMESh) 

34  GO  TO  200 

35  100  XPESH>(XMAX-XMIN)/100.0 

36  YMESh>XMESH/0.8 

37  Y«AX«YMIN*<52.0*YMESM) 

38  200  continue 

39  PRINT  30 

40  30  FORMATI'I','  PLOT  OF  R-VALUES") 

41  YTOP-VHAX^YMESH 

42  PRINT  31fVT0P 

43  31  FORMATC'  ',F10.4 , 1C1 ( > 

44  DO  300  1>1»S3 

43  DO  350  J>1*101 

46  350  LINKJ)  > IBLANK 

47  DO  400  L>1«NR  F 

48  ITIST  ■ (VD(L)*VMIN)/YMESH«O.S 

49  IFKlTEST  «1>  .NE.  S3)  60  TO  400 

50  JPOST  ■ (XD(L>*XHIN>/XMESH«1  .5 

51  LINECJPOST)  • ISVMD(L) 


123 


S2 

600 

CONTINUE 

55 

C 

ik 

300 

PRINT  555,VtLlNEtV 

55 

555 

EORNATC'  'f9*,  «1,101A1 

, A1) 

56 

TB0T«TN1N-Y«ESH 

57 

PRINT  32,TB0T 

58 

32 

fORPATC'  ',H0.4,101('- 

')  > 

59 

PRINT  33»XniN|XPAX 

60 

33 

EORPATC'  '.SX.EIO.A.OOX 

,rio.4) 

61 

C 

62 

RETURN 

63 

END 

•PRT.S  FULLWAVE.OVCHK 


f*0RflTT*FULLwAVF(1).0VCHK 


1 SUBROUTINE  OVCHK (CALLERtSTNT)  DMP 

2 c *****  THIS  SUBROUTINE  WILL  CALL  THE  ROUTINE  OVUNfL  WHICH  ONP 

3 C *****  CHECKS  FOR  OVFRFLOW  AND  UNDERFLOW.  THE  ROUTINE  RETURNS  AN  OHP 

A C *****  integer  value  WHICH  TELLS  WHETHER  OVERFLOW  AND/OR  UNDERFLOW  DHP 

5 c *****  HAVE  OCCURRED  SINCE  THE  PROGRAM  STARTED  OR  SINCE  THE  LAST  TINE  OHP 

6 C *****  ONE  OF  THE  0 V ER FLOW /UNDE R F L OW  CHECKING  ROUTINES  HAS  CALLED.  DMP 

7 C *****  WHICHEVER  HAS  BEEN  MORE  RECENT.  THE  INTEGER  VALUES  RETURNED  DMP 

8 c *****  AND  Their  meanings  are  as  follows;  dmp 

9 c *****  1*  overflow  onlt  dmp 

10  C *****  2*  NO  overflow  or  UNDERFLOW  DMP 

11  C *****  3*  UNDERFLOW  ONLY  DMP 

12  c *****  4*  overflow  and  underflow  dmp 

13  C *****  THIS  SUBROUTINE  (OVCHK)  WILL  PRINT  OUT  A MESSAGE  STATING  DMP 

14  C *****  whether  overflow  has  or  has  not  OCCURRED.  FOR  PURPOSES  DMP 

15  c *****  OF  THIS  CONVERSION,  UNDERFLOW  OCCURRENCES  HAVE  BEEN  IGNORED  0"P 

16  C *****  BECAUSE  THE  1110  TAKES  THE  SAME  ACTION  (l.E.  SETS  THE  RESULT  DMP 

17  C *****  TO  ZERO)  IN  THE  CASE  OF  UNDERFLOW  AS  DOES  THE  360.  DMP 

18  C *****  THE  SUBROUTINE  ALSO  PRINTS  OUT  THE  NAME  OF  THE  CALLING  DMP 

1<J  C *****  ROUTINE  CVARIABLE  'CALLER')  AND  THE  STATEMENT  NUMBER  FROM  DMP 

20  C *****  WHICH  IT  WAS  CALLED  (VARIABLE  'STMT')  DMP 

character*6  caller  dmp 

22  INTEGER  STMT  DMP 

23  call  ovunfl(iovfl)  dmp 

24  IF  (lOVFL  .EO.  1 .OR.  IOVFL  .EQ . A)  GO  TO  150  DMP 

25  WRITE  (6,1U0)  DMP 

26  100  FORMAT  ('lOVERFLOW  HAS  NOT  OCCURRED')  DMP 

27  GO  TO  250  DMP 

23  150  WRITE  (6,200)  DMP 

29  200  format  ('lOVERFLOW  HAS  OCCURRED')  DMP 

30  250  CONTINUE  DMP 

31  write  (6,300)  stmt, CALLER  DMP 

32  500  format  ('  OVCHK  HAS  CALLED  FROM  STATEMENT  ',15,'  IN  SUBROUTINE  ' DMP 

33  1 ,A6)  DMP 

34  RETURN  dmp 

35  END  DMP 


SFIN 


12S 


APPENDIX  B 


FORTRAN  LISTING  OF  THE  "RANDOM"  COMPUTER  PROGRAM 
PROGRAM  RANDOM 


--t 

C 


C 

f 


c 

t 


. JJLU-«N4UNAM-4£JiCNATCS  &AUSSJAM  lAMAOM  »ATA  VALUES 
COMPLEX  PARTS.RtMR 

-OtEAULT  VALUES 
•ATA  IRAI||gp/ 


OAtA  MRF/20/  , 

^lA^  llAAAy2D<4^0Si 
SATA  ALAST/-59.0/ 

REAO(5t  SATUN) 

StAS  llilSEMT' 

11  FORHAT]20A4> 

PUNCN  lltlSENT 


1«  EoilNAT{M%20A4»/) 

U fol«ATl*fl%20X, 'INPUT  SATA'//,10X,‘'N‘'*10X*'FRE0UENCy  ‘ 
SO  10  |■ltNRP 

CONTINUE 


ss 


AEAS  SS. FINAL 
(FT.O) 


FORMAT 

if]f|nai 


•LT.  0.0) 


, H • 

..  PRINt  57  ^ , 

S7  lORMATl’’  '.'LAST  CARS 
SO  TO  SS 

SS  CONTINUE 


60  TO  S6 
IS  NOT 


NEGATIVE') 


20 




XtS«tIl)SllAMM 
PART(n«PART(1>«SI6NA(l>*X 
CALL  RANSOMCIMNSM.X) 
RSN1(1>-I 

Pmf  ffipARTtf)  ♦ SI  SNA  < I ) * X 


»»r;s;uENT 

2S  


• SX  0 


126 


Tl'fl'iil.'l'.ZKf'IHAHM'.IOX.'Xllf  AL'tlOX  .'IHANOU'', 
•lOXi'KlUAS'/) 

21  FORflAT(*0‘'»20X»'«AUSSIAM  RAMOOM  R RATA') 

22  ■',5X,'M‘',5X,‘'FRE«UEHCT‘’,10X,'R',20X,'RR',20X,'SIGRA'/) 

r5  30  Jal.NlF 

RRIRT  31titFRERCl>.R(I>.RR(I).SI6RA<l)^_  ^ ^ , 

31  rORMATl.  *.|X,lS,Fl3.3t2X.2Fl6.3,2x,2Fl0.3,2x,Fl0.3> 

PUNCN  32i.FRlttCl5.RRCl).SlCMA(I) 

areRMAT(F7.2,3Xt2M0.3,Mo.3) 

continue 


PUNCH  32tALAST 
5t  CONTINUE 
STOP 
CN» 


SURROUTINC  RANDON  (IX«X> 

THIS  ROUTINE  IS  SPECIFIC  TO  SYSTEN  1110.  IT  GENERATES  APPROX  IRATELY 
GAUSSIAN  DISTRIBUTED  RANDON  FLOATING  NURBERS  MITH 
UNIT  STANDARD  DEVIATION.  (2**29)/12  NURBERS  HILL  BE 
GENERATED  BEFORE  SEQUENCE  IS  REPEATED. 

INITIAL  VALUE  OF  IX  RAY  BE  ANY  INTEGER  OF  NINE  DIGITS  OR  LESS. 


P IS  A UNIFORRLY  DISTRIBUTED 
BETWEEN  0.0  AND 


IDOR  VARIABLE  UlTH  VALUES 


RANDON  GENERATES  A RANDON  NURBER  FROR  A SEED  AND  SIRULATES  AN 
IBN  300  32  BIT  MORD  GENERATION.  THE  CALLING  SEQUENCE  IS  THE 
SANE  AS  FOR  THE  IBR  360  RANDON  SUBROUTINE. 

tX>lX*2-1 
l«  rO.O  ^ 


IX>1X*2-1 
X«  -6.0  ^ 

?X  J^ix"*|2l53» 

iFfBlTsHx.Sllt'.to.  0)  GO  TO  6 

’ » Ijjr.jp  , , 

IX  > IX  ♦ 2167483667 
60  TO  7 

6 tlTS  (IX,  It  6)  > 0 


VFL  m VFL  • •66S6613E-9 
11  X > X ♦ VFL 
RETURN 


APPENDIX  C 


FORTRAN  LISTING  OF  THE  "INVERT"  COMPUTER  PROGRAM 


PROGRAM  INVERT 


W0RF1TT*I<VERT(1) 

• K AIN 

1 

C 

MIN 

2 

C 

PROGRAM  '"INVERT"' 

3 

c 

This  version  of  the  ionospheric  profile  inversion 

4 

c 

PROGRA*  WILL  WORK  FOR  AN  ARBITRARY  CHOICE  OF  FREQUENCIES 

5 

c 

AS  LONG  AS  THE  FOLLOWING  RULE  IS  APPLIED. 

6 

c 

7 

c 

((FMAX-FMIN) /DELF)  .LE.  200. 

d 

c 

9 

c 

10 

COMHON/NR  COM/NR 

11 

COMPON/PLOT  C/IPROFP.IRPLOT 

12 

COHPON/.ANS  COP/ ANSWER!  51) 

13 

COM'»ON/NORG  C/N0R6 

14 

LOPPON/PIN  C/PIN 

15 

COPPON/DOPT  C/DOPT 

16 

COMMON/ROTAT  C/ROTATE 

17 

CCHPON/DELF  C/DELF 

18 

coppon/oltah  c/oeltah 

19 

LOPPON/HS  C0M/HTST0P<2) 

23 

COMPON/STOPS  r/ST0PS(2) 

21 

tOPPON/EXPNU  C/COEFNU, EXPNU 

22 

COPPON/IPA  COP/IPRNTA 

23 

tOPPON/IPE  COP/IPRNTE 

24 

COPPON/ALPHA  C/ALPHA{51) 

25 

CCPPON/NS  COP/NR  STPS(2S,20) 

26 

27 

LOPPON/AL  CPP/ALAPOA 

23 

tOPPON/OL  COP/OELTAL 

29 

NAPEL IST/OATUP/ 

33 

T PIN, 

31 

5 NO  , 

32 

% OOPT, 

33 

1 ROTATE  , 

34 

5 DELF, 

35 

1 DELTAH, 

36 

1 HTSTOP, 

37 

1 STOPS, 

39 

S COEFNU, EXPNU, NUFLA6, 

39 

% IPRNTA, 

43 

1 IPRHTE, 

41 

1 ALPHA, 

42 

1 NR  STPS, 

43 

% 

44 

t ALAPDA, 

45 

1 OFLTAL 

46 

wIPENSION  ieCD(?C) 

47 

DATA  NAPE/'NAPE'/ ,ADAT/'  *D A ' / , D AT2 / 'TUP  '/, 

43 

J lENO/'  tPN'/ ,END2/'D  '/ 

49 

c 

S3 

c 

51 

PRINT  100 

128 


52 

53 
5« 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 


100  f0R(*:«T('1') 

C 

READ  901»IBCD 
PRIKT  902,IBC0 
C 

CALL  0 INPUT 
CALL  FW  INPT 
C 

IFCIPROFP  .NE.  1)  60  TO  66 
C 

C READ  IN  AN  ORIGINAL  PROFILE 

C 

READ  701tI8CO 
PRINT  902fIBCD 
J=1 

60  READ  67,HTD,ELD 
67  F0RPAT(F7,2,5x,1pE9.2) 

IF(HTO  .LT,  O.C)  60  TO  98 
ANSWER(J)  s ALOGCELO) 

J = J*1 
60  TO  60 
98  N0RG=J-1 
66  CONTINUE 
C 

PIN  = 10 
60PT  * 1.0 
NR  = 1 

[•ELF-  j.1 
6ELTAH  « 1.0 
HTSTOP(I)  = 93.0 
MTST0P(2)  = 50. C 
STOPS(I)  * 1.0E3 
ST0PS(2)  « 3.0E0 
COEFNU  = 1.816E11 
EXPNU  = -0.15 
NUFLAG  - 0 
IPRNTA  * 0 
IPRNTE  » 0 
ROTATE  - 0.0 
ALANDA  « 0.0 
OFLTAL  * 1.0/64.0 
C 

READ  901«IBCD 
PRINT  902,1PC0 
C 

IFCIBCDd)  .EO.  NAME)  60  TO  90 
IFCIBCOd)  .NE.  NAME)  PRINT  600 
600  FORMAT<''0''t''  NO  NAMELIST  INPUT  .—PROCR AM 
60  TO  999 
90  REA0(5fDATUM) 

PRINT  601 »A0AT,0AT2 


STOPS ') 


129 


104 

601 

fORP*T('  ',2*4) 

105 

If  (NUFLAG  .EO.  w)  GO  TO 

27 

106 

COEFNU  * 4.^03£11 

107  0 

EXPNU  * -0,1622 

1 J3 

?7 

CONTINUE 

f- 

109 

PRINT  602,hTSTCP( 1) ,HTST0P(2) ,ST0PS( 1) ,ST0PS<  2) 

110 

eo? 

FOkPATI'  hTSTOP(I)  = 

',F8.i,'  HTST0«»(2>  » ',F8.3, 

111 

• 

' STOPS(I)  » ',1P£1D.?, 

' ST0PS(2)  = ',1PF10.3) 

112 

PRINT  201 ,PIN,00PT, 

OELTAH 

11  J 

201 

fOKPATI'  MN  = ',I5, 

' OOPT  = ',F9,3, 

114 

1 

' OELTAH  = ',F9.3) 

115 

PRINT  202,  rotate  ,ALAMDA, 

0ELTAL,IPRNTA, IPRNTE ,NUFL  AG 

116 

2C2 

FORPAK'  ROTATE  = ' 

,F9.3,'  ALAPDA  * ',F9.3,'  OELTAL 

117 

i 

F9.4,'  IPRNTA  = ',12,' 

IPRNTE  = ',12,'  NUFLAG  = ',12) 

IIP 

IF(NUFLAG  .FO.  1)  PRINT 

203, NUFLAG, COEFNU, EXPNU 

119 

2f'3 

F0R>'AT('  ','  NUFLAG  = ', 

I?,'  COEFNU  = ',1PE1D.3, 

120 

' EXPNU  = ',CFF6.4) 

121 

PRINT  204,IFND,END2 

122 

204 

FORPATI'  ',  2A4,//) 

123 

C 

124 

CALL  CONTRL 

125 

C 

126 

9P1 

FORPAT  (20A4) 

127 

902 

FORPAT  ('  ',20X4) 

123 

c 

129 

999 

STOP 

130 

c 

131 

tNO 

SiPRT,S  INVtPT  .CONTHL 


I:  1» 


[l 


W0RFITT*INVEf(T(1).C0NTRL 

1 bUBPOUTlNE  CONTRL 


2 

C 

3 

tOWP'ON/NR  CO«»/NR 

4 

COf^ON/PLOT  C/IPRCf P.IRPLOT 

5 

C0WM0N/M1N  C/MIN 

6 

COMI«ON/D  OPT  C/D  OPT 

7 

COM-ON/NS  COf</NR  STPS{25,20) 

d 

C0P40N/NRE  COM/NR  F 

9 

COWPON/NRA  COW/NR  A 

10 

COM*'ON/ ALPHA  C/ALPHA(51) 

11 

COMMON/DA  C0M/DA(51) 

12 

tOMPON/ADIST  C/AOIST 

13 

COMMON/OVRFLO/IOV  FLO 

14 

COMPON/S  COH/S 

15 

tOMMON/AL  COP/ALAPOA 

16 

COPPON/SN  COP/SNEXT 

17 

COPPON/DL  COP/DELTAL 

18 

DIMENSION  ALPHA0( 51 ) ,THPESH{4) ,NS0(25, 20) 

19 

I.ATA  THRESH/0. 6,1.2, 2. 0,4.0/ 

20 

C 

c 

22 

NSEC  = 6C*PIN 

23 

FNSEC  * NSEC 

24 

CALL  SETCLtt 

25 

c 

26 

IFIRST  = 1 

27 

c 

23 

CALL  SET  HTS 

29 

CALL  INTEPP 

30 

CALL  LOGS 

31 

c 

32 

PRINT  101 

33 

in 

FORPAT('C','CNO  OF  I M T1 L I Z A T I ON ' ) 

34 

PRINT  103 

35 

103 

FORPATC'I', 'INITIAL  PPOFILF — ') 

36 

IFCALAPOA  .EQ.  O.C  ) GO  TO  51 

37 

PRINT  104  ,NP ,t<  APDA 

38 

104 

FORPATI'  ','X  , 'CONTINUE  PITH  LAMBDA', 13,' 

39 

t '(NOT  USED  UNTIL  S F TTL E -DO WN ) ' ) 

40 

c 

41 

15 

CALL  PRINT  N 

42 

PRINT  105, NP 

43 

105 

FORPAT('  ' ,3X  , 'FULL-WAVE  SOL UT I ON 5 ' , 1 3 ) 

44 

CALL  R DRDA 

45 

IF  (lOVFLO  .NE.  0)  GO  TO  90 

46 

CALL  PRNT  RS 

47 

PRINT  108,NP,S 

48 

ice 

FORPAT{'0',3X,'S',I3,'  » ' , F 9 . 3 , 1 X , 'US I N6 

49 

c 

50 

IFdHPLOT  .EO.  1)  CALL  RPLOTS 

51 

c 

r. 


52 

53 

55 

56 

57 

58 

59 

60 
61 
62 
63 
6^ 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
32 

83 

84 

85 

86 
37 
88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 


20  PRINT  200 

200  FORMAK'I', 'SETTLE-DOWN ') 

NR  * NR  4 1 
C 

CALL  SOL  EOS  (0) 

C 

RATIO  * ADlST/0  OPT 

PRINT  202.NR  « ALAMDA,SNEXT,A01ST,RATIO,NR 
202  FORNATC'  ',3X, 'SOLVE  ESS  WI^H  LAMBDA', n,'  * ',E12.5,1X, 

% 'GIVING  S PRIME  * ',F9,3,2X,  'O  PRIME  » ' , F 7 . 3 , 2 X , 'R AT  1 0 = ', 
S F8, 2, lx, 'AND  SETTLE  PROFILE', I3) 

CALL  PRINT  P 
C 

IF  (RATIO  .LT.  THRESH(I))  OELTAl  « S OR T ( 2 . 0) * 0 EL T AL 
IF  (RATIO  .6T.  THRESH(2))  OELTAL  * DELTAL/2.0 
C 

IF  (RATIO  ,LT.  THRESH(4)  .OR.  IFIRST  .NE . 0)  GO  TO  40 
30  CONTINUE 

DO  32  J*1,NR  A 
32  ALPHA(J)  » ALPHAO(J) 

ALAMDA  = ALP 

PRINT  300,NR,ALANDA,NR,DELTAI 
300  FORMAT  ('1','BACKSTEP ', 

$ 15X, 'SAVED  LAMBDA', 13,'  = ',F12.5,'  CELTi  LAMBDA', 13,'  = ', 

3 F12.5,'  (NOT  USED)'/) 

NR  JHF  * (NR  A-1)/2 
DO  39  L*1,NR  F 
DO  39  JHFxI.NR  JHF 

39  NR  STPS(JHF,L)  = NSO(JHF,L) 

CALL  LXCLKS(SKEY) 

IFCFNSEC  .LT.  SK E T ) GO  TO  70 
GO  TO  15 
C 

40  IF  (RATIO  .LT.  THRESH(3))  GO  TO  50 
NR  * NR  41 

PRINT  400, NR , ALAMDA, NR, DELTAL 

400  F0RMAT('1','SAME  LAMBDA ', 

S 15X,'(SAME)  LAMBDA', 13,'  « ',F12.5,9X, 

S 'DELTA  LAMBDA', I3,'  » ',Fl2.5,'  (NOT  USED)'/,19x, 

•'PREVIOUS  SOLUTION  FROM  SETTLE  DOWN  IS  USED') 

CALL  LKCLKS(SKEy) 

1F(FNSEC  .LT.  SKEY)  GO  TO  70 
GO  TO  60 
C 

50  NR  ■ NR  4 1 

PRINT  500, NR, OELTAL 

500  F0RMAT('1','NEW  LAMBDA ',15X, 'DELTA  LAMBDA', 13,'  * ',F12.5) 

1F|RST»0 

C 

ALO  « ALAMDA 
ALAMDA  « ALAMDA4DELTAL 
C 


132 


104 

51 

CALL  SOL  EOS  (1) 

105 

PRINT  504,NP ,ALAMDA, AOIST,SNEXT,NR 

1u6 

504 

fORMATC'  ',3X, 'SOLVE  EOS  WITH  LAMBDA 

107 

J 

'GIVING  0 = ',F7. 3, 2X, 'LINEAR  S * ' 

108 

C 

109 

CALL  LXCLKS(SXEV) 

110 

IFCFNSEC  .LT.  SK E T ) GO  TO  70 

111 

C 

112 

DO  52  J=1,NR  A 

113 

52 

ALPHAOIJ)  = ALPHA(J) 

114 

NR  JHF  » (NR  A-1)/2 

115 

DO  58  L=1,NR  F 

116 

DO  58  JHF=1,NR  JHF 

117 

58 

NSO(JHF,L)  = NR  STPS(JHF,L) 

113 

c 

119 

60 

DO  61  J=1,NP  A 

UO 

*1 

ALPHA(J)  : A LPHA ( J) 4 DA ( J ) 

121 

c 

122 

CALL  PRINT  N 

123 

PRINT  601, NP 

124 

601 

FORMAK'  ',3X  , 'FULL-WAVE  SOLUTIONS', 

125 

CALL  R DRDA 

126 

IFCIOVFLO  .NE.  0)  GO  TO  90 

127 

CALL  PRNT  RS 

128 

PRINT  602,NP,S 

129 

602 

F0RMAT('0',3X,'S',13,'  = ',F9,3,1X,' 

130 

c 

131 

IFdRPLOT  .FO.  1)  CALL  RPLOTS 

132 

c 

133 

GO  TO  20 

134 

c 

135 

70 

ALAMDA  = ALT 

136 

CALL  CARDS 

137 

STOP 

138 

c 

139 

90 

PRINT  990 

140 

990 

FORMAT  {'0','I0VFL0  FLAG  SET') 

141 

STOP 

142 

c 

143 

kND 

',13,'  = ',F12.5,1X, 

,F9.3, 1X,'AN0  PROFILE', 13) 


13) 


USING  FULL-WAVE  VALUES') 


aPRT,S  invert. SETHTS 
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»'0RF1TT*INVERT(1).!>ETHTS 


2 

C 

3 

CO^'NON/OLTAH  c/deltah 

4 

COMNON/HTS  C0N/HTS(51) 

5 

COMNON/MS  C0M/HTST0P< 2> 

6 

CONNoN/STOPS  C/ST0PS(2) 

7 

COMKON/NRF  COW/NR  f 

8 

COPPON/NS  COM/NR  STPS(25,2C) 

0 

COPNON/ALPHA  C/ALPHA(51) 

10 

COPPON/AL  COP/ALAPOA 

11 

COPPON/NRA  COP/NR  A 

12 

coppon/alips  C/APAX,APIN 

13 

C 

U 

DATA  EPS/e. 001/ 

15 

C 

16 

c 

17 

APAX  = AL06(ST0PS (1) ) 

18 

APIN  » AL06(ST0PS (2) ) 

19 

c 

20 

ELOTc  » (HTST0P(1)-HTST0P(2>)/(2 

.0»0ELTAH) 

21 

NR  JMF  * FLOTE^Fi.OI 

22 

SLOP  = A0S(FtOTF-NR  JhF) 

23 

IF  (SLOP  .GT.  0.C2)  GC  TO  90 

24 

c 

25 

IF  (ALAPDA  .EQ.  0.0)  ALPNAd)  > 

(APAX*APIN)/2. 

26 

HTSO)  « HTSTOPd) 

27 

J « 1 

28 

?1 

J * J^l 

29 

HTS(J>  = HTS(J-1>-DELTAH 

3C 

IF  (ALAPDA  .EO.  0.0)  ALRHA(J)  ^ 

ALPHA(  1) 

31 

1F(MTS(J)-0.01  .GT.  HTST0P(2)  ) 

60  TO  21 

32 

NR  A s J 

33 

c 

34 

IF  (NR  A-1  .NE.  2*NR  JHF)  GO  TO 

90 

35 

IF  (ALAPDA  .NE.  0.0)  RETURN 

36 

c 

37 

DO  71  L*1fNR  F 

38 

DO  71  JHF>1,NR  JHF 

39 

?1 

NR  STPS(JHFfL)  » 2 

40 

RETURN 

41 

c 

42 

90 

PRINT  900 

o3 

voo 

FORPAT  ('0'.‘'(HTST0P(1)-HTST0P(2))/DELTAH  PUST 

44 

ID') 

45 

STOP 

46 

c 

47 

END 

&FRT,S  invert. CAROS 
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1 


MOR F ITT* INVERT ( 1) .CARDS 


SUBROUTINE  CARDS 

COMf«ON/ALPHA  C/ALPHA(51) 
COPWON/NR  COP/NR 
COMPON/NS  COP/NR  STPS(25,20) 
COMMON/ROTAT  C/ROTATE 
COPPON/AL  COP/ALAPDA 
COPPON/DL  COP/DELTAL 
COPPON/NRA  COP/NR  A 


10 

COPPON/NRF  COP/NR  F 

11 

C 

12 

C 

13 

PRINT  1U0 

14 

100 

FORMAT  ( '1 'OUTPUT  CARDS — ') 

15 

c 

16 

PRINT  201  , (ALPHA (J) ,J  = 1, NR  A) 

17 

201 

FORPAT('  ALPHA  = 1 0( F 6 . 3 , 1 OX , 1 0 ( F6 . 3 , 

','))) 

18 

PUNCH  202 t (ALPHA (J) ,Js1 , NR  A) 

19 

202 

FORPAT(  ' ALPHA  = 1 0(  F 6 . 5 » ' , ' ) , / , ( 1 0X  , 1 O' ( F 6 . 3 , 

','))) 

iO 

c 

21 

NR  JHF  = (NR  A-1)/2 

22 

DO  ■'1  L = 1,NR  F 

23 

PRINT  301,L»(NR  STPS ( JHF ,L) f JHF  =1,NR  JHF) 

24 

301 

FORMAT  ('  NRSTPSd  ,',I2,')  = ' , 1 2 ( I 4 , ' , ' ) , / , ( ' ',16X 

,12(14,',' 

25 

S) ) ) 

26 

'1 

PUNCH  302, L, (NR  STPS( JHF ,L) , JHF  =1,NR  JHF) 

27 

302 

FORMAT  ( ' NRSTPS( 1 12,')  = ' , 1 2 ( I 4 , ' , ' ) , / , ( 16X 

,12(14,',' 

29 

1))) 

29 

c 

30 

PRINT  401,  rotate 

31 

401 

FORMAT  ('  ','  rotate  = ',F6.1,',') 

32 

PUNCH  4 02  , ROTATE 

33 

402 

FORMAT  ('  ROTATE  ~ ',F6.1,',') 

34 

c 

35 

PRINT  5C1,ALAPPA 

36 

501 

FORMAT  ('  ','  ALAPDA  * ' , 1PE9 . 2 , ' , ') 

37 

PUNCH  502, ALAPDA 

38 

502 

FORMAT  ('  ALAPDA  = ' , 1 PE 9 .2 , ' , ') 

39 

c 

40 

PRINT  601,DFLTAL 

41 

601 

FORMAT  ('  ','  DELTAL  » ',F12.5,',') 

42 

PUNCH  602, DELTAL 

43 

6''2 

FORMAT  ( ' DELTAL  » ',F12.5,',') 

44 

c 

45 

PRINT  701, NR 

46 

701 

FORMAT'.'  ','  NR  « ',I3,',') 

47 

PUNCH  702, NR 

48 

702 

FORMAT!  ' NP  » ',13,',') 

49 

c 

50 

c 

ROUTINE  ADDED  TO  CHECK  FOR  OVERFLOW 

51 

61C 

CALL  OVCNKC'CAROS  ',610 
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f 

i 


52 

53 

54 


RETURN 


END 


SPRT.S  INVERT. SOLEdS 


1 

I 

1 

i 

e 

\ 

i 


jf 


i 


I 

.1 

t 

i 


»*0RF1TT*INVERT(1).$0LEQS 

1 SUBROUTINE  SOL  EOS  (LFLR6) 

C 

CONMON/DLTAH  C/OELTAh 
COMNON/IPA  CON/IPRNTA 
CONNON/ALINS  C/AMAX.ANIN 
COMPON/ALPHA  C/ALPHA(51) 

COMMON/HTS  COP/HTS(51) 

COMPON/NRA  COM/NR  A 
COMNON/NRF  COM/NR  F 
COMMON/AL  COK/ALAPOA 
COMPON/RNORP  C/R  N0RM(40) 

COMPON/DROA  C /O RO A ( * 0, 5 1 ) 

COMPON/S  COP/S 
COPPON/OA  C0P/0A(51) 

COPPON/SN  COP/SNEXT 
COPPON/AOIST  C/AOIST 
COPPON/AU  COP/ALP  UNC(51) 

COPPON/RSN  COP/RE SLTN( 51 ) 

COPPON/TEPP  C/B(1326),A(2040) 

DIPENSION  PEN(2),CAP  A(S1) 
kEAL*8  B,A ,V (51) I AUX (51) .DSUP 
DATA  EPS/1. OE-A/ 

DATA  ALN  TEN / 2 . 3 0 25 S 5 / 

C 
C 

NR  P = 2*NR  F 

IF(ALAPDA  .FQ.  O.C  .AND.  LFLAG  .NF.  0)  GO  TO  12 
S = O.U 

DO  11  I»1,NR  P 

11  s » S+R  N0RP(I)**2 

12  CONTINUE 
C 

FACTR1  = 1.0 

IF  (ALAPDA  .NE.  O.C)  FACTRl  > 1 . OF  5 / DE LT AH •* 3 / AL A« D A • • 2 
PENLTY  » FACTR1*1.0E2 
PEN(1)  * 0.0 

IF  (ALPHA(I)  .LE,  APAX)  PEN(1)  « PENLTY 
PEN(2)  « 0.0 

IF  (ALPHA(NR  A)  . GE  . APIN)  PEN(2)  » PENLTY 
ICOUNT  « 0 
C 

2C  JJ  J « 1 

DO  23  J>1.NP  A 
DO  23  JJ«1  , J 
DSUP  > C.O 

IF  (ALAPDA  .EO.  J.C)  GO  TO  22 
DO  21  I«1,NR  P 

21  USUP  « DSUP«DROA(ltJJ)*ORDA(ItJ) 

22  B(JJ  J)  > DSUP 

23  JJ  J > JJ  JAI 

C 
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52 

60  25  J*1,NR  A 

53 

OSUf*  = 0.0 

54 

IF  (ALAMDA  .ES.  0*0)  60  TO  25 

55 

00  24  1*1, N9  W 

56 

?4 

CSU"  = OSU^*l>RD*(I,J)*R  NOR'^d) 

57 

25 

V(J)  * -OSU»' 

58 

C 

59 

fad)  = 0 (1)+2  .C<*F  ACTRI 

60 

0(2)  * B<2)-3.0*FACTR1 

61 

3(3)  * B(3)*6.0*FACTR1 

62 

J J = 6 

63 

NRAF"2  * NR  A-2 

64 

00  27  J*3tNRAF^2 

65 

0(J  J-2)  * E(J  J-2)>FACTR1 

66 

e(J  J-1)  = P(J  J-1)-4.0*FACTR1 

67 

t(J  J)  = B(J  J)46 .0*FACTR1 

68 

27 

J J * J J+J41 

69 

o(J  j-2)  * P(J  J-2)*FACTR1 

70 

c((J  J-1)  * P(J  J-1)-4.0*FACTR1 

71 

b(J  J)  = B(J  J)>5 .0*FACTP1 

72 

J J = J J*NR  A 

73 

fa(J  J-2)  * P(J  J-2)*FACTR1 

74 

fa(J  J-1)  * P(J  J-1)-2.0*FACTRl 

75 

d(J  J)  s B (J  J)«FACTR1 

76 

c 

77 

V(1)  * V(1)-FACTR1*(2.0*ALPHA( I)-3.0*ALPHA(2)»ALPHA(3)) 

73 

V(I)  » V(2)-FACTR1*(-3.)«ALPHA(1)«6.'J*ALPHA(2)-4.C*ALPHA(3 

79 

T ♦ALPMA(4)) 

60 

.SRAP2  * NR  A-2 

81 

uO  23  J«3,NPAH2 

82 

’8 

V(J)  * V(J)-FACTR1*(ALPHA(J-2)-4.0*ALPHA(J-1)46.0*ALPHA( J) 

83 

t -4,0*ALPHA(J*1)4AL®HA(J42)  ) 

84 

V(NP  A-1)  * V(NR  A-1 )-FACTR1* ( ALPHA(NR  A -’ ) -4 . 0* AL PH A { NR  A 

85 

$ ♦5.C«ALPHA(NR  A-1 ) -2 .0*ALPHA (NR  A)) 

86 

V(NR  A)  * V(NR  A)-F  ACTiii1*(ALPHA(NR  A -2  ) - 2 . 0*  AUPH  A (NR  *-1) 

S7 

S «'ALPhA(NR  A)) 

83 

c 

89 

L(1)  « B(1)«PEN(1) 

90 

J J < (NR  A*(NR  A«1))/2 

91 

e(J  J)  « P ( J J)*PEN(2) 

92 

c 

93 

V(1)  ■ V (1  )-PEN(  1 )*  ( ALPHAd  ) -A'RAX) 

94 

V(NR  A)  « V(NR  A)-PEN(2)*(ALPHA(NR  A)-APIN} 

95 

c 

96 

CALL  D6ELS  (V.B.NR  A , 1 ,E  PS  * I E R . AU  X ) 

97 

IF  (lER  .LT.  0)  PRINT  903flER 

98 

9C3 

FORPATC'  ','fOk  OA  SOLUTION.  lER  »'.I3) 

99 

c 

100 

DO  31  J«1.NP  A 

101 

31 

bA(J)  > V(J> 

102 

c 

103 

IA6A1N  • 0 
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*LPHA(1)^D*<1) 


AMAX)  60  TO  32 


lOA 

1J5 

1&6 

1J7 

1u8 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 
119 
12C 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 
133 

139 

140 

141 

142 

143 

144 

145 

146 

147 
143 

149 

150 

151 

152 

153 

154 

155 


C 


c 


c 


c 


32 

33 

3A 


^5 


305 


IT  (PENd)  .EG.  0.0  .OR. 
PEN ( 1 ) = O.l 
lAGAIN  = 1 
60  TO  33 

IT  (PENd)  .NE.  0.0  .OR. 
PENd)  = PENLTT 
IA6AIN  = 1 

IT  {PEN(2)  .EG.  C.O  .OR. 
PEN(2)  = O.C 
IA6AIN  = 1 
GO  TO  35 

IT  (PEN(2)  .NE.  0.0  .OR. 
PEN(2)  » PENLTT 


.LE. 


ALPHAd)  + OAd)  .GT.  AMAX)  60  TO  33 

ALPHACNR  A)4DA(NR  A)  .GE.  AMIN)  GO  TO  34 


AL<»HA(Nft  A)*DA(NR  A)  .LT.  AMIN)  60  TO  35 


lAGAlN  = 1 

IT  (lAGAIN  .EG.  0)  GO  TO  40 
ICOUNT  = ICOUNT+1 
IT  (ICOUNT  .LT.  5)  GO  TO  20 
PRINT  305 

TORMaT  ('O', 'ICOUNT  TOO  LARGE') 
STOP 


4C  SNEXT  = O.C 
AOIST=0.0 

IT(ALAMDA  .EG.  . C .AND.  LTLAG  .NE.  0)  RETURN 
GO  46  I»1,NR  M 
DSUM  * C.O 
CO  45  Jal.NO  A 

45  GSUM  a OSUM*ORDA(I,J)*OA(J) 

KNEXT  a R N0RM(I)»DSUM 
4t  SNEXT  a SNFXT*RNEXT«*2 

SUM  SO  « c.r 
CO  47  Jal.NR  A 

IT  (ALPHA(J)  .GT.  AMIN  .AND.  ALPHA(J)  .LT.  AMAX) 
1 SUM  SC  a SUM  SQ^0A<J)**2 

47  continue 

AOIST  a SORTISUM  S0*D£LTAH) /ALN  TEN 

IT  (LTLAG  .NE.  ?)  Rf TURN 
IT  (ALAMDA  .EG.  C.O)  GO  TO  70 
JJ  J a 1 
DO  52  Jal.NR  A 
CO  52  JJa1,J 


CSUM 

S 

0.0 

t<C  51 

I 

■I.NP  M 

51 

OSUM 

s 

DSUM«ORDA(  I, JJ)*0RDA(1,J) 

i>(J  J 

J) 

a OSUP 

52 

JJ  J 

s 

JJ  JAl 

ed) 

a 

ed)4l.G«f  ACTRl 

b(2) 

a 

B(2)-2.C*FACTR1 

c(3) 

a 

B(3)«5  .(.aFACTRl 
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156 

J J : 0 

157 

!»?**■?  * NR  *-2 

159 

DO  55  j>5,NR*r2 

159 

t(J  J-^>  * °(J  J-2)*f*CTRl 

160 

t (j  j-n  « R<j  j-i)-4,o«r»CTRi 

161 

c(J  J)  * 9(J  J)*6.0«MCTR1 

162 

5? 

J J = J J*J*1 

165 

t.(J  J-2)  * “(J  J-Z)*F»CTR1 

164 

b(J  J-l)  * ®(J  J-1)-4,0*fRCTRl 

165 

b(J  J)  * B(J  J)»5.t*f*CTR1 

166 

J J £ J J4NR  « 

167 

f(J  J-4)  » ncj  j.J)»f»CTR1 

163 

D<J  J-1)  » F(J  J-1)-2.l ‘fRC T»1 

169 

c(J  J)  * e(J  J)*F*CTR1 

170 

C 

171 

J I * 1 

172 

DO  S'*  1*1, " 

173 

1,0  57  J*1  ,nR  » 

174 

A(j  I)  * ohr»(i,j) 

175 

« 7 

J 1 * J 1*1 

176 

c 

177 

call  DGELS  (A,b,hA  A, MR  « , E » S • I E R , AU X ) 

17? 

if  (IFR  ,LT.  o)  print  9'’5,1*R 

179 

9 05 

fORJ'ATC'  ','fOR  A SOLUTION,  IE»  * ',1') 

liJ 

c 

1o1 

DO  A?  J*1,MP  A 

152 

DSU*'  * C.O 

1;! 

J I * J 

164 

UO  61  1*1, MR  r 

1-5 

usu''  * osuf'  + A (J  1 )•*; 

U6 

9 1 

J I = J I*MR  A 

1o7 

*2 

ALP  l)MC(J)  * OSQRTCOSOP) /ALN  TEN 

199 

c 

159 

DO  66  J*1,MP  A 

190 

10  64  JJ»1,NR  A 

191 

DSOP  = 0,0 

192 

J 1 * J 

195 

DO  65  I*1,NP  P 

194 

DSON  s 0SUM4A(J  I)*ORDA(I,JJ) 

195 

fj 

J I * J I+NR  A 

196 

64 

LAP  A(JJ)  » OSO" 

197 

c 

19? 

If  (IPRNTA  .MF.  0)  PRINT  90"' , J , H T S ( J ) , ( C AP  A<JJ>,JJ*1, 

1V9 

Qn; 

fORPATC'  ','CAP  A', 14,'  AT',F7.?,'  » ' , / , ( lOX , 1 0< IP E 1 1 

200 

c 

201 

SUP  MOP  » 0,0 

202 

SUP  DEN  * C.O 

2 03 

DO  65  JJ*1,NR  A 

204 

SUP  NUP  * SUP  NUP«(HTS(J)-HTS(JJ))**2*AF)S(CAP  A(JJ)) 

2 05 

65 

SUP  OEN  « SUP  DEN*AQS(CAP  A(JJ)) 

2 06 

66 

kESLTN(J)  ■ SORTCSUP  NUN/SUP  DEN) 

2j7 

return 

' I 
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203 

C 

209 

70 

DO  71  J*1,NR  R 

210 

ALP  UNC(J)  * C.O 

211 

71 

RESLTNIJ)  * O.L 

212 

RETURN 

213 

C 

2U 

END 

iPRT.S  INVERT. PBINTN 


MOR^ITT 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

U 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


•INVERT(I) .PRINTN 

SUBROUTINE  PRINT  N 
C 

COPPON/NORG  C/N0R6 
COMPON/ANS  C0N/ANSWER(51) 
COMPON/PLOT  C/IPROf P.IRPLOT 
COMNON/NRA  COP/NR  A 
COPMON/HTS  COP/HTS(51) 
COPPON/ALPHA  C/ALPHA(51> 
COPPON/AU  COP/ALP  UNC(51) 
CPPPON/RSN  C0P/RESLTN(51  ) 
CrtPPON/OA  C0P/0A(51) 
COPPON/ALIPS  C/APAXfAPIN 
INTEGER  V 

OIPENSION  LINE(PI) 


DATA  ISYPO/'^'/f ISYPN/'^'/.IBLANK/' 
DATA  ALN  T EN / 2 . 3 0 25 8 5 / 

DATA  V/Ol740000n0000/ 


V,ISYPS/'S'/ 


FPESH=4.'T*ALN  TEN/fcO.C 

IFCIPROEP  .EQ.  1 .AND.  NRA  .NE  . N0R6)  GO  TO  988 
PRINT  irU,V,V,V,V tV 

ICO  fORPAT  ('C',5X  ,'hT',9X, 'N',18X,  Al,l9('-'),  Al,19<'-'), 
• A1,19('-'),  A1,19('-'),  Al) 

DO  11  J«1,NR  A 
EN  » EXP(ALPMA(J)) 

DO  5l  K » 1,81 
50  LINE(X)  » IBLANX 

lEdPROFP  .EQ.  f'i  60  TO  60 
JPOST*ANSWER (J)/FP£SH*1.5 
IF(JPOST  .GE.  1 .AND.  JPOST  .LE.  81) 

•LINE  (JPOST)»ISYPO 
60  CONTINUE 

JPOST«ALPHA(J>/FPESH* 1.5 

IFIJPOST  .GE.  1 .AND.  JPOST  .LE . 81) 

*LIN£ (JPOST)»IS YPN 
IF(J  .NE.  1)  60  TO  67 
JP0ST«APAX/FPESH*1.5 
LINE(JPOST)«ISYPS 
67  IF(J  .NE.  NR  A)  GO  TO  11 
JP0ST«APIN/FPESP^1.5 
LINE(JPOST)*ISYPS 
11  PRINT  105, HTS(J) ,EN,V, LINE, V 
1P5  FORPAT  ('  ‘',F7.2,1X,1PE9.2,17X,  Al,8lA1,  Al) 

60  TO  500 


ENTRY  PRINT  P 
PRINT  200,V,V,V,'V  ,V 
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52 

200 

TORKAT  ('0',5x,'hT',9x,'n',3x,'unC',4X,'RFS 

5! 

• Al,19('-'),  *-.,19('-'),  A1,19('-'),  A1) 

54 

DO  71  J=1,NR  A 

55 

F»'  = EXP  (ALPHA  (J  ) ♦DA  ( J)  ) 

56 

DO  -J  X = 1 ,81 

5’ 

70 

L INF (K ) = IPLANK 

53 

IFdPPOFP  .£0.  0)  GO  TO  61 

59 

JPCSI  * answer (J ) /FHE SH+ 1 .5 

60 

IFCJPOST  .GE.  1 .AND.  JPOST  .LE  . 81) 

61 

•LINE(JPOST)  = IFYPO 

62 

61 

continue 

65 

JPOST=(ALPHA(J)*OA(J))7FMESH+1.5 

64 

IF(JPOST  .GE.  1 .AND.  JPOST  .LE.  81) 

65 

•LINE  (JPOST  ) = ISY*’N 

66 

I F ( J .NE . 1 ) GO  TO  6o 

67 

JPOST=AF  AX/FPESH  + 1.5 

69 

L INF  (JPOST,'  = ISV«'S 

69 

65 

IF(J  .NE.  NR  A)  GO  TO  21 

70 

JP0Sr=A*'lN/FHESM4l.5 

71 

LINE(JPOST)»ISVRS 

72 

?1 

PRINT  2C5,HTS (J) ,FN,ALP  UN C ( J ) , RE SLTN ( J ) , V , 

73 

i05 

FORMAT  ('  ',F7.?,1x,lPE9.2,;?PF6.2,1X,0PF6.2 

74 

c 

75 

500 

PRIM  5C1  ,V  ,V  ,V  ,V  ,V 

76 

5C1 

FORHaTI'  ',35X,  A1,19('-'),  a1,19('-'),  a1, 

77 

• 19('-'),  A1  ) 

79 

PRINT  5(’2 

79 

502 

FORMAT ('  ',35X,'G',19x,'1',19X,'2',19X,'3', 

dC 

c 

3l 

CO  Tu  800 

62 

c 

33 

988 

PRINT  987, NR  A.NORC 

B4 

98,7 

F0RPaT('(;',/7,'pR0GRAN  stops***','  NHA  » ', 

o5 

STOP 

36 

600 

CONTINUE 

97 

RETURN 

38 

c 

89 

END 

• s 

Invert 

.RPLOTS 

I5) 
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M0RFITT*INVERT{1).RPL0TS 


SUBROUTINE  RPLOTS 

CONPON/NRF  COFI/NR  F 
COHMON/ROATA  C/R  DATA(2.20) 
CONNON/DSPLA  C/R  DSPLA(f,2C) 


6 

INTEGER  V 

7 

DIMENSION  ISVMD(20)« 

I SYMC(20) 

8 

* 

LINedOl  ) 

9 

C 

10 

DATA  ISTMO/'A','B',' 

c '.'d'.'e' 

11 

s 

» ^ * * 
K t L 9 

m'.'n'.'o' 

12 

DATA  ISVMC/'I'f '2',' 

3', '4', '5' 

13 

s 

'1','2',' 

3', 

U 

DATA  IBtANK/'  '/ 

15 

DATA  V/01740000000CO/ 

16 

C 

17 

XMAX=-1 .0E9 

18 

XMIN  = ^1  .r!E9 

19 

TMAX*-1 ,0E9 

20 

rPIN=t1,0E9 

21 

c 

22 

DO  1L  C»1  ,NR  F 

23 

XD(L)>R  DATAd.L) 

24 

YD(L)*R  DATA(2,I.) 

25 

IF(XC(t)  .LT.  KPIN) 

XPIN»XD{L> 

26 

IF(XD(L)  .GT.  Xf'AX) 

XMAX«XD(L) 

27 

IFIYKL)  ,LT.  Y-IN) 

YPIN»YD(L) 

28 

IF(YD(L)  .GT.  YioAX) 

YNAX*YD(L) 

29 

10 

continue 

30 

c 

31 

DO  2t  L>1.NR  F 

32 

XC(L)>R  DSPLAd.L) 

33 

YC(L)*R  DSPLACZ.L) 

34 

IF(XC(L)  .LT.  XPIN) 

XPINbXC(L) 

35 

IF(XC(L>  .GT.  XPAX) 

XPAX«XC(L> 

36 

IFCYCCL)  .LT.  YPIN) 

YMIN»YC(C) 

37 

IFIYCCD  .GT.  YPAX) 

YPAX«YC (L> 

38 

20 

continue 

39 

c 

40 

IF( (XPAX-xniN)/10.0 

.GT.  (YNAX 

41 

Yl»ESh«<YPAX-YFIIN)  /52 

.0 

42 

XPESh«YMESM*0.e 

43 

XNAX*XMINF(100.0*XMESH) 

44 

GO  TO  200 

45 

100 

XPESHb(XMAX-XMIN) /100  .0 

46 

YPESHBXNESM/O.f 

47 

T*AX«YHIN4(52.0*YP£SH) 

48 

zoo 

CONTINUE 

49 

PRIN1  30 

SO 

30 

FORMATI'I','  PLOT  OF 

R-VALUES' 

51 

4 

' SXt'COMPuTED  VALUES 

« NUMERIC 

,'R','S',- 


J , 
T'/ 


60  TO  100 


■ ALPMAHERIC'* 
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r 


52 

YTOP*YP*  X4YWESH 

53 

PRINT  31,YT0P 

54 

31 

F0R*-AT('  ',F10.4,1C1(  ) 

55 

00  3w0  1=1,53 

56 

DO  350  J=1,101 

57 

350 

LINE(J)  = IBLANK 

58 

DO  4t0  L=1,NR  F 

59 

ITEST  = (Y D(L)-TM  IN) / TME SH»0 ,5 

6G 

IF((1TEST  ♦!)  .NE.  53)  GO  TO  400 

61 

JPOST  s (XD(L)-XMIN)/XMESH*1 .5 

62 

LINf<JPOST)  = ISYPOCl) 

63 

400 

CONTINUE 

64 

C 

65 

DO  4E1  L=1,NRF 

66 

ITEST  = (YC(L)-YMIN)/Y0£SH*Cl.5 

67 

IF((ITEST+I)  .NF.  53)  GO  TO  401 

68 

JP0ST=(XC(L)-XPIN)/XPESH*1.5 

69 

LINF(JPOST)  = ISYHC(L) 

70 

401 

continue 

71 

c 

72 

300 

PRINT  555,V,LINF,V 

73 

555 

FORPATC'  ',9X,  Al.lOlAl,  Al) 

74 

YPOT=YMIN-YMESH 

75 

PRINT  32,YB0T 

76 

32 

FOR^ATC'  ',F10.4,1C1('-')  ) 

77 

PRINT  33,XMIN,XfAX 

78 

33 

FOR'^ATC'  ',5X,F10,4,9C'X,F1U.4) 

79 

c 

80 

RETURN 

81 

END 

aPRT.S  INVERT. DINPuT 


I 
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^'0»FIrT*I^VERT(1),DINPUT 


1 

SUBROUTINE  D INPUT 

2 

C 

3 

COM'*oN/F  COM/E(?P> 

t. 

COWf'ON/RDATA  C/P  nATA(20) 

5 

C0IRRUN/SI6MA  C/SIGKA(20) 

6 

COR.rON/NRF  COF'/NR  F 

7 

CORPLEX  R DATA,P 

S 

OIRENSION  ID(?C) 

9 

C 

10 

c 

11 

RFAD  101,10 

12 

ni 

FORMAT  {?0A4) 

13 

PRINT  102,10 

U 

102 

format  ('  ',20A4) 

15 

c 

16 

L = 1 

17 

1 1 

READ  1Ul,FREe,fi,SlG 

15 

103 

FORMAT  (F7.2  ,3X ,2F1C.3,F10.3) 

19 

PRINT  104,FREO,P,SIG 

2C 

104 

FflpwAT  ('  ',  F7. 2 , 3x  , 2 FI  0. 3 , FI  0. 3 ) 

21 

IF  (FREO  .LT.  0.0)  GO  TO  15 

22 

F(L)  = FREG 

23 

R OATA(L)  = R 

24 

SI6''A(L)  = SIG 

25 

L = L«1 

26 

GO  TO  11 

c7 

15 

NO  F = L-1 

2S 

RET  Ilk  1, 

29 

c 

5) 

ENO 

iPRT.S  I'tVfcPT.IMTERP 
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f«0RFlTT*INVERT(1).lNTERP 


1 

SUBROUTINE  INTERP 

2 

C 

3 

tOMNON/NRF  COM/NR  F 

A 

COMPON/OELF  C/DELF 

5 

COMPON/F  C0P/F(2w) 

6 

COMPON/IF  COP/INOEXF  (20 

7 

COMMON/DIOR  C / 0 I D R ( 2 05 , 20 ) 

8 

COMPON/TEMP  C/A(1tCO),V(4000) 

9 

f<EAL*e  A,V 

10 

DATA  PAXNR/2C5/ 

11 

c 

12 

c 

13 

I N D E X F ( 1 ) = 3 

U 

1)0  11  l = 2,nr  F 

15 

11 

INDEXF(L)  = 3.5+(F(L)-F(1))/DELF 

16 

NR  EG  = INDFXF(NR  F)»2 

17 

IF(NR  EG  .GT.  MAXNR)  GO  TO  TO 

19 

c 

19 

c 

20 

Ad)  = 1.0 

21 

a(2)  = -2.0 

22 

A(3)  = 1.0 

23 

A(4)  = -2.0 

24 

A(5)  = 5.0 

25 

A{6)  = -4.0 

26 

A{7)  = 1.0 

27 

c 

28 

A(6)  = O.C 

29 

A(9)  = 0.0 

30 

AdC)  = 1.0 

31 

Adi)  » 0.0 

32 

A(12)  = 0.0 

33 

c 

34 

N = 15 

35 

t/0  23  L»2.N»  F 

36 

21 

1F(K/5+1  .eg.  INDEXFCU))  go  TO  ? 

37 

A{K-2)  = 1.0 

33 

A(K-1)  * -4.0 

39 

A (K  ) » 6.0 

40 

A(K»1  ) X -4.0 

41 

A(K*2)  * 1.0 

42 

K X K + 5 

43 

GO  TO  21 

44 

c 

45 

22 

A(K-2)  * 0.0 

46 

A(tC-1  ) X 0,0 

47 

A(K)  X 1.0 

49 

A(K4l  ) X 0.0 

49 

A(K>2)  X O.O 

50 

23 

N X r•♦5 

51 

c 
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52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 
89 


C 


C 


C 


C 


C 


c 


= l.r 

a(k-1>  . -4.C 
A(K)  « 5.0 
A(K*1>  = -2.0 
K.  * K^4 

A(K-2)  * 1.0 
A(K-1)  = -2.0 
A (tC  ) = 1.0 

KL  = 1 

00  31  L*1,NR  F 
00  31  K*1,NR  eu 
V (KL )>U.C 
31  ';L=t(L^1 

00  33  L=1,NR  F 
AL  = (L-1)*NR  £0^INDEXF(L) 

33  V(KL)*1.0 

tALL  06ELB  (V.A.NR  FO.NR  F , 2 , 2 , 1 , OE -4 , I E R ) 

PRINT  401, lER 

401  fORPAT  ('1','IN  06ELB,  lER  = ',I3,/) 

ALIPIT  = NR  EQ-1 
00  52  K*2,ICLIMIT 
AL*K 

00  51  L*1,NR  F 
010R(K,L)=V(KL41)-V(KL-1) 

51  KL'KL'FNR  EG 

52  PRINT  501 , (0 lOR (K  ,L) ,L»1  ,NR  F) 

501  FORF'AT  ('  ',10F10.5) 

RETURN 

90  PRINT  9C0 

9nC  FORt<AT(''0'',''OELF  TOO  SNALL  FOR  FREQUENCT  PANfiE  USfO') 
6T0P 


tNO 


•PRT.S  INVERT. LOGS 
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HORFITT* 

1 

2 

! 

A 

5 

6 
7 
3 
9 

10 

11 

12 

13 

U 

15 

16 
17 
IS 
19 
2C 
21 
22 
23 
2A 

25 

26 
27 
23 

29 

30 

31 

32 

33 
3* 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


INVERT (1) .LOGS 

SUeROUTINE  LOGS 


COMKON/DPHAS  C/DPhASE 
tOMMON/F  C0''/F(2u) 

COMMON/RDATA  C/R  0ATA(20) 

COMMON/SIGP*  C/SIGPA(20) 

COKMON/NRF  COP/NR  F 
lOMPON/OIOR  C/0IDR(205,?0) 

COPMON/IF  COM/INOEXF (2t) 

COMPON/RD  COM/RO(20> 

COPiPON/OVS  If  C/OVR  SI6<20,20) 

COHPON/TEPP  C/A(2C, 2C),X(?0,20),V(20,20) 
lOMPLEX  R OATA,RO,OVR  SIC. 

I R SUM, PARTS, R I»SPLA(20) 

tOMPLEX*l6  *,X,V 

DIMENSION  PART(?),OS  P A R T ( 2 , 20 , 20 ) 
tOUIVALENCE  ( PA R T S , P A R T ) , ( 0 V R SI6,0S  PART) 
GATA  RTO/57. 29578/ 

DATA  PI/3.141593/ 

DATA  NOIM/20/ 


ROd  ) = R DATAd) 

R OSPLA(I)  = R OATA(I) 

PREVP  - 0.0 
A =2 

DO  26  LL=2,NR  F 

21  K=K*1 

R SUM  = 0.0 
DO  22  L=1,NP  F 

22  R SUM  = R SUM*DIOH(K ,L )*R  OATA(L) 
PARTS  * CLOG(R  SUM) 

PHASE  = PART(2) 

24  IF  (PHASE-PPEVP  .LT.  PI)  60  TO  25 
PHASE  = phase-2. 0*PI 

LO  TO  24 

25  IF  (PHASE-PPEVP  .6T.  -PI)  60  TO  26 
PHASE  = PHASE^2.0*PI 

CO  TO  25  

26  RREVP  g PHASE  SifCK  .EQ.  3)  DPHASE  - j 
IF(K  .NE.  INDEXFUl))  GO  TO  21 
PART(2>  « PHASE 

hD<LL)  » PARTS 
PART(I)  * EXP(PART(1)) 

PART(2)  » PART(2)*RT0 
26  R DSPLA(LL)  = PARTS 


A(1,1)  » 1.0 
DO  51  L>2,NR  F 
51  A(L,1)  « 0.0 
DO  53  LL>2,NR  F 
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32 

k SUM  » 0.0 

53 

K = INOEKFdL) 

5<. 

CO  52  L«1.N»  f 

55 

52 

k SUM  = R SUM^OID R<K ,t )*R  OATACL) 

56 

CO  53  L*1»NP  f 

57 

53 

A(L.LL>  > DIOR(K,L)/R  SUM 

58 

C 

59 

00  55  L»1,NR  f 

60 

00  55  LL'I.NR  f 

61 

55 

V (L  ,LL  ) = 0.0 

62 

00  56  L=1,NP  F 

63 

56 

V(L,L)  * 1 .O/SIGPACL) 

64 

C 

65 

CALL  CLINEC  (A.V.K.NR  F , NO  I , 0 . F R P ) 

66 

PRIK’T  600,  E PR 

67 

6CC 

FOR''AT  ('O'.'CLINEO  ERR  * ',f7.3,//> 

68 

C 

69 

00  5?  l*2,mp  f 

70 

CALL  CLINEQ(A,V(1,L),*(1,L),NR  F , NO  I M , 1 , E p R ) 

71 

58 

PRIM  600, ERR 

72 

C 

73 

00  61  L»1,NR  F 

74 

00  61  LL*1,NR  F 

75 

61 

OVK  SIG(L,LL)  - X (LL,L> 

76 

C 

77 

OO  63  L*1,NR  F 

73 

PRINT  6C3,(PS  PART{1,L,LL),LL*1,NP  F) 

79 

PRINT  603  , (PS  PART(2 ,L,LL),LL*1,NR  F) 

30 

60  3 

FORMAT  ('  ', 10<1PE12.2)) 

61 

63 

PRINT  604 

32 

604 

FORMAT  ('0') 

63 

c 

64 

PRINT  700 

35 

700 

FORMAT  ('1','DATA  VALUES — *’) 

36 

PRINT  7C1 

37 

701 

FORMAT  <'0',3X,'FREQ',6X,'RE(R)',3*,'IM(R>', 

38 

1R0F)',VX,'RF(G)',4X,‘'IM(G)') 

69 

00  71  L»1,NR  F 

90 

71 

PRINT  7C3,F(L),R  DATACL),R  0 SPL A ((  ) , RD (L > 

91 

7C3 

FORMAT  ('  ',F7.2,3X,2Fe.3,3X,2F8,3,F14,5,F9. 

92 

RETURN 

93 

c 

94 

END 

'M»6(D»Dr)',1X,'A<6 


PRT,S  JMVERT.RORDA 
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M0RF1TT*1NVERT(^).R0RDA 


1 

SUBROUTINE  R DROA 

2 

c 

3 

COMMON/OELf  C/OELF 

4 

CORINON/S  COf/S  jcOMMON/ROTAT  C/ ROTATE) 

5 

^ ^ j fcOMMON/DPHAS  r./DPHASEl 

6 

fOMNON/JPF  fOM/<^  /[PSllfEV 

7 

COMNON/NS  CON/NR  STPS<25,207 

8 

COWNON/HTS  C0»'/HTS(51) 

9 

COP^'ON/NRA  COP/NR  A 

10 

COMNON/F  C0P/F(2U) 

11 

C0FIN0N/S16NA  C/SIGMA(20) 

12 

COMNON/NRF  CON/NR  F 

13 

COMNON/OIDR  C/DI0R(2C5,20} 

14 

CONRiON/lF  COM/INOEXF(20) 

15 

CONNON/RD  COP/RD(20) 

16 

COMNON/OVSIG  C/OVR  SIG(20t20) 

17 

COMNON/FRtQ  NR/LFREQ 

18 

COPRON/FRO  CORI/FREQ 

19 

C0MN0N/lNT£rR/Rl1 ,R21,Pl2,R22,Ifi  OMIT (24) 

20 

lOMNON/TENP  C/OR  LIST(4,51) ,ER  LIST(4,25) 

21 

COMHON/OVRFLO/IOVFLO 

22 

CONMON/RNORP  C/R  N0RM(20) 

23 

COKMON/DROA  C / 0 RD A ( 20 . 5 1 ) 

24 

COMPON/OSPLA  C/R  OSPLA{3,20) 

25 

COMPON/UR  C0P/UR<20>,N  STRPS(20) 

26 

OIPENSION  PART(2),U  UEVEL(25) 

27 

COMPLEX 

28 

J RO, 

29 

% OVR  SIG, 

30 

5 R11  ,R21 ,R12, R22, 

31 

i OR  LIST.ER  LIST, 

32 

1 R NORP,DRDA, 

33 

1 R OSPLA, 

34 

$ CPLX  I, PARTS, 

35 

1 RNUP,RDEN,R(20> , 

36 

S URNUM,URDEN, UR  CPLX, 

37 

t 0PNUP,0 ROEN,DRI  V, 

38 

1 R SUK,R  NEW(20),0RDA  SV(2ri) 

39 

EQUIVALENCE  (PARTS, PART) 

40 

OATA  UFRCTN/0.3/ 

41 

OATA  CPLX  I/(C. 0,1.0)/ 

42 

OATA  Pl/3. 141593/ 

43 

OATA  RTO/37, 29578/ 

44 

c 

45 

c 

46 

NR  JMF  « (NR  A-1)/2 

47 

c 

48 

00  12  J*1,NR  A 

49 

00  12  LL>1,NR  F 

SO 

12  DRDA(LL,J)  ■ O.n 

51 

c 
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DO  <>9  L'ltNB  f 
FREO  s F(L) 

PRIMT  201, FREO 
FORMAT  ('  ',F7.2) 

LFREO  * L 
CALL  INTEG 

IF  (lOVFLO  .ME.  C)  RETURN 

RNU"  = -R22+CPLX  I*R12 
ADEN  = -R22-CPLX  I*R12 
R(L)  - RNUFI/RDEN 
R DSPLA(1,L)  » R(L) 

SUP  = 0.0 

DO  31  J*1,NR  JHF 

URNUP  * -ER  L1ST(4,J)^CPLX  I«ER  L1ST(3,J) 

LADEN  = -£P  L :ST<4, J )-CPLX  I*ER  Llsr(3,J) 

UR  CPLX  s (URNUP-(RNUP/RDEN)*URDEN)/RDEN 
PARTS  * UR  CPLX 

U LEVELCJ)  = PART<1)**24PART<2)**? 

SUP  = SUP^U  LEVEL(J) 

USQ  = SUP 

uR(L>  = SORT(SUP) 

USO  PAX  * (UFRCTN*SI6PA(L>)**2 
IF  (use  .LT.  USO  PAX)  GO  TO  40 

U PAX  = 1.CF9 
U NEXT  « 0.0 
SUP  3 O.O 
DO  35  J=1,NR  JHF 
U TEPP  = U LEVELCJ) 

iF  (U  TEPP*1.C1  .LT.  U PAX  .AND.  U TEPP  .Gl.  U NEXT) 

F U NEXT  » 0 TEPP 

IF  (U  TEPP  .6T.  U PAX)  U TEPP  > U PAX 
SUP  » SUP^U  TEPP 
IF  (SUP  .LT.  USO  PAX)  GO  TO  36 
0 PAX  > U NEXT 
U NEXT  « 0.0 
UO  TO  34 

DO  37  J«1,NR  JHF 

IF  (U  LEVELCJ  )*0. 99  .GT.  U PAX)  NP  STPS(J,L)  » ?*NR  STPS(J,L> 
CONTINUE 

GO  TO  21 

N STEPSCL)  > C 
DO  41  J«1,NR  JHF 

N STEPSCL)  • N STEPS(L)«NR  STPSCj.L) 

DO  42  J>1,NR  A 

DRNUP  » -DR  LISTC4,J)4CPLX  1*DR  LlSTCl.J) 


152 


104 

ORDEN  = -OR  LIST<4,J )-CPLX  I*OR  LIST{3 

105 

ORIV  s (DRNUM-(RNUP/RDEN)*DRDEN)/RDEN 

106 

IF  (L  .EC.  1)  DRDAd.J)  > ORIV 

107 

00  42  LL=2,NR  F 

10S 

K = INOEXF<tL) 

109 

42 

DRD«(LLfJ)  s DRDA(LL(J>«D1DR(K.L)*0RIV 

110 

49 

CONTINUE 

111 

C 

112 

R 0SPLA(2,1)  = R{ 1) 

113 

R 0SPLA(3.1)  = R(1) 

114 

k NEWd)  s R(1)-RD(1) 

115 

PREVP  - (DPHASE-ROTATE) /RTD 

116 

K=2 

117 

00  69  LL»2,NR  F 

lie 

61 

K * X41 

119 

ft  SUM  = 0.0 

120 

00  62  L*1.NR  F 

121 

62 

R SUM  = R SUM*OI0R{X,L)*R(L) 

122 

PARTS  = CLOGCR  SUM) 

123 

PHASE  = PART(2) 

124 

64 

IF  (PHASE-PREVP  .LT.  PI)  60  TO  65 

125 

PHASE  = PHASE-2.C*PI 

126 

60  TO  64 

127 

65 

IF  (PHASE-PREVP  .GT.  -PI)  60  TO  66 

128 

PHASE  = PHASE^2.C*PI 

129 

60  TO  65 

130 

66 

PREVP  * PHASE 

131 

1F(K  .Eq.  3)  ROTATE  - (DPHASE-PREVP) ARTD 

132 

IF(K  .NE.  INOEXF(LL))  GO  TO  61 

133 

C 

134 

PART(2)  * PHASE 

135 

R NEW(LL)  > PARTS-RD(LL) 

136 

00  6b  J*1.NR  A 

137 

68 

OROA(LLiJ)  > ORDA (Lt )/R  SUM 

138 

R 0SPLA(3.LL)  * PARTS 

139 

PART(I)  » EXP(PART(1))/(2.0*0ELF) 

140 

PART(2)  « PART(2)*RT0 

141 

R 0SPLA{2,LL)  » PARTS 

142 

69 

continue 

143 

c 

144 

DO  72  L«1.NR  F 

145 

R SUM  B C.O 

146 

00  71  LL»1,NR  F 

147 

71 

R SUM  « R SUM^OVR  SI6(LfLL)*R  NEN(LL) 

148 

72 

R NORM(L)  ■ R SUM 

149 

c 

150 

00  75  J«1,NP  A 

151 

00  73  LLBl.NR  F 

152 

73 

OROA  SV(LL)  ■ OROA(LLtJ) 

153 

00  75  L«1»NR  F 

154 

R SUM  « 0.0 

155 

DO  74  LL«1,NR  F 

153 


r 


156 

74 

R SUP  - R SUM-»0VR  S1G(L.LL)*0RDA 

157 

75 

ORDA(L.J)  * R SUM 

158 

C 

159 

S>0>0 

160 

00  81  L *1 .NR  f 

161 

81 

S * S«CABS(R  NORM(t))«*? 

162 

return 

163 

C 

164 

END 

&PRT,S  INVERT. PRNTRS 


r 


»'0RriTT*ISVERT{1).PRNTRS 

1 Sl'EROUTINE  PRNT  RS 

2 C 

3 COMMON/OSPlA  C/R  DSPLA(6,2C) 

4 COP^ON/F  C0W/F{20) 

5 COF'l*>ON/UR  C0M/UR(2C),N  STEPSEPO) 

6 C'^M(»ON/NRF  COP/FIR  F 

7 C 
3 C 

9 PRINT  10C 

10  IPJ  FORI*AT  ( ''J',3X  ,'F  RE  Q',6X  ,'RE  (R)  ' f 3x, 'IM(  R) 2X  ,'MAG(DRDF  )',1X  ,'A  (0 

11  tRDF)',9X,'RE(6)',4X,'lM(G)',12X,'RK  ERR'i3X,'RK  STEPS') 

12  DO  n L=1,NR  F 

13  11  PRINT  101,F(L),(R  DSPLA(X,l),X=1,6),UR(L),N  STEPS(L) 

U 101  FORMAT  ('  ',F7.?,3X,2F8.3,3X,2F?.3,F14,5,F9.5,10X,FP.3,?X,I4) 

15  RETURN 

16  C 

17  END 


iPRT.S  INVERT. FWINPT 
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( 


WCRFITT«INVERT(1).fHlNPT 

1 SUBPOUTINE  fy  INPT 

2 C 

3 COPPON/PLOT  C/IPROfP,IRPLOT 

4 COMPON/THET*  C/THETA 

5 COPPON/FLO  COP/*ZIP,CODIP,MA6FLO 

6 COPPON/IPRNT  C/IPRINT 

7 REAL  MAGFLD 

8 C 

9 namelist  /FULLPV/THETAtA21M,CODlPtMA6FLP tIPRINT, 

10  * IPROFP , IRPLOT 

11  DATA  WAVE/'WAVE'/ 

12  DATA  AOAT/'  & D A ' / A T 2/ ' TUP  '/,IENO/'  i E N ' / t EN 02 / ' D '7 

13  DATA  FULI/'FULL'/ ,FUL2/'  W A V ' / t F UL 3 / ' E IN'/fFUL^/'  PUT'/ 

14  C 

15  1PR0FP=1 

16  IRPL0T*1 

17  THETa  s 22.0 

18  AZIP  = 90.3 

19  COOIP  = 12.0 

20  PAGFlD  * 5.3E-5 

21  IPPINT  s 0 

22  C 

25  PFAD  12,  CBO 

24  12  F0RMAT(1A4) 

25  IF(  LBO  .NE.  PAVE)  PRINT  14 

26  14  FORPATI'O','  FULLWV  NAMELIST  IS  ABSENT,  — PROGRAM  STOPS--.') 

27  IF(  CHO  .NE.  WAVE)  GO  TO  999 

28  PRINT  10,FUL1,FUL2,FUL2,FUL4 

29  10  FORMAT!'  ',4A4/) 

30  IF(  CBO  .Ett.  WAVE)  PRINT  13,wAVE 

31  13  FORMAT!'  ',A4) 

32  PEA0!5, FULLWV) 

33  PRINT  16,A0AT,1>AT2 

34  16  FORMAT!'  ',2A4) 

35  PRINT  11 .theta ,AZ IM, CODIP, MAGFLO, IPRINT, IPROFP, IRPLOT 

36  11  FORMAT!'  ','  theta  « ',F8.3,'  DEGREES','  AZIM  = ',FP.3, 

37  * ' OtGREES','  CODIP  « ',F8.3,'  DEGREES', 

38  * ' paGFLO  * ',1PE10.3,/  " IPRINT  * ',12,'  IPROFP  * ',12, 

39  * ' IRPLOT  « ',!?) 

40  PRINT  17,1END,END2 

41  17  FORMAT!'  ',2A4,/) 

42  C 

43  CALL  INIT  T 

44  RETURN 

45  C 

46  999  STOP 

47  C 

48  END 


8PRT,$  INVERT. INTEL 
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»»ORFITT*lNVERTCt).INTEG 

1 

SUBROUTINE  INTEG 

2 

C 

3 

COHI»ON/NS  COW/NP  STPS(25,2G) 

4 

CONPON/DLTAH  C/DELTAH 

5 

COMMCN/HTS  COP/HTS(51) 

6 

COPIMON/NRA  COW/NR  A 

7 

COMPON/IPRNT  C/IPPINT 

8 

COMPON/FREO  NR/LFREO 

9 

COPPON/JAY  COP/JAY 

10 

COPPON/TEPP  C/OP  LIST(8,51),ER  LIST(8,25), 

11 

$ A STOR(32,49), 

12 

» R0(56),H0ELRC(56),0ELR1(56),DELR2{56) 

13 

i X0(8),H0ELX0{?),DELXl(8),0ELX2(g), 

14 

S R SAVE(56), 

15 

1 ERR0R(8), 

16 

i A TEPP(32) .a  PR0D(32)  , 

17 

S TEPPV(8) 

18 

C0PP0N/INTE6R/R(56) 

19 

COPPON/OROH  C/0P0M(56) 

20 

COPPON/X  COP/XIP) 

21 

COPPON/DXOH  C/DX0H(8) 

22 

COPPCN/EN  COLL/HT 

23 

COPPON/WN  COP/WAVE  NR 

24 

COPPON/OVR  FLO/ ICVFLO 

25 

COPPON/IEW  COP/IEW 

26 

DATA  OHPIN/0.01/ 

27 

DATA  RTOL/C.03/ 

28 

c 

29 

c 

30 

IOVFLO  * 0 

31 

call  IMT  S 

32 

jay  * 1 

33 

HT  = MTS  ( 1 ) 

34 

call  COEFFS 

35 

call  IMTLl 

36 

CALL  SET  P OR 

37 

c 

39 

NP  E4  « 56-20*IFW 

39 

N6nP  » fi-2*lEW 

40 

N25N41  * 41-16*I£W 

41 

NieN32  » 32-14*IEh 

42 

c 

43 

IF  (iPRlNT  .NE.  Cl)  PRINT  O&O 

44 

IF  (IPRINT  .NE.  U)  PRINT  9C2 . MT , (R < 1 ) , I * 1 , n6NA ) 

45 

c 

46 

NRAP1  « NR  A-l 

47 

NP  JMF  » (NR  A-1)/2 

48 

DO  69  J>2.NRAP1.2 

49 

JP1  « J-1 

50 

JMF  » J/2 

51 

jay  * JPl 

I 
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52 

CALL  XFER  (RtR  SAVEtNR  EQ> 

53 

CALL  XFER  (R«X,N6N8) 

54 

HT  * MTS(JMI) 

55 

31 

NS  = NR  STPSCJHF ,LFREO) 

56 

OELH  = -2.0*0ELTAH/FL0AT(NS) 

57 

DH  > DELH*t«AVE  NR/2«0 

58 

HON  z 0.5*0N 

59 

TDH  = 2.0*DH 

60 

C 

6l 

NS0VR2  s NS/2 

62 

NS0VR4  = NS/4 

63 

DO  49  KS1.NS0VR2 

64 

CALL  R DERIV 

65 

CALL  X DERIV 

o6 

IF  (lOVFLO  .NE.  0)  GO  TO  60 

67 

C 

68 

DO  32  1 = 1, NR  EQ 

69 

RO(I)  = R<I) 

70 

HDELROd)  = 0RDH(1)*H0H 

71 

32 

RCl)  * ROCD^HOELROCI  ) 

72 

C 

73 

DO  35  1=1,N6N8 

74 

XP(I)  » X(l) 

75 

HDELXO(I)  = DXDH(1)*0H 

76 

33 

X(l ) = X0(I)»HDELXC(1 ) 

77 

C 

78 

HT  = HT^0.5»DELH 

79 

CALL  COEFFS 

80 

CALL  R DERIV 

81 

IF  (lOVFLO  .NE.  0)  60  TO  6C 

82 

c 

83 

DO  39  1*1, NR  EO 

84 

DELR1  (1)  * DRDH(I>*0H 

85 

34 

R(l)  * R0{1)T0.5*D£LR1(I) 

86 

c 

37 

CALL  R DERIV 

88 

IF  (lOVFLO  .NE.  0)  60  TO  60 

89 

c 

90 

DO  35  1*1, NR  EQ 

91 

DELRt.(I)  * 0R0H(I)*0H 

92 

35 

R(l)  ■ RO(I) ADELR2(I ) 

93 

c 

94 

MT  » HT^C.5*DCLH 

95 

CALL  COEFFS 

96 

CALL  R DERIV 

97 

CALL  X DERIV 

98 

IF  (lOVFLO  .NE.  0)  GO  TO  60 

99 

c 

100 

DO  36  1*1, NR  EO 

101 

NDELR3  • DRDH(I)*NDH 

102 

DELR4  * (HDELR0(I)«DELR1(I)«0ELR2(I)tH0ELR3)/3.0 

103 

36 

R(I>  > R0(1>aDELR4 
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r 


104  C 

105  DO  57  1s1,n6N8 

106  DELXKI)  * DX0H(I)*TDH 

107  37  X(I)  » X0(1)*0.5*0ELX1(I) 

108  C 

109  IF  (NS  .NE.  2)  GO  TO  40 

110  IF  (JM1  .GT,  1)  CALL  XFER  (R(N6N8^1),A  S TOR ( 1 , JM 1 -1 ) , N 1 3n 32 ) 

111  CALL  XFER  (R (N25 N41 ) , OR  L I ST ( 1 , J H 1 ) , N 6n 8 ) 

112  CALL  SET  P DR 

113  JAY  = J 

114  C 

115  40  CALL  R DERIV 

116  CALL  X DERIV 

117  IF  (lOVFLO  .NE.  0)  60  TO  6C 

118  C 

119  DO  4<!  1 = 1, NR  EQ 

120  RO(I)  = R(I> 

121  HOELkO(I)  = DRDH(I)*HDH 

122  42  R(I)  ~ R0(I)«HDELR0(1) 

123  C 

124  DO  43  I*1,N6N8 

125  OELXi(I)  = OXOH(I)*TOH 

126  43  X(I)  = X0(n«DELX2(I) 

127  C 

128  HT  « HT^n.5*0ELH 

129  CALL  COEFFS 

130  CALL  R DERIV 

131  IF  (lOVFLO  .NE.  0)  GO  TO  6C 

132  C 

133  DO  44  1=1, NR  EQ 

134  DELRKI)  = DRDH(I)*DH 

135  44  R(I>  = R0(I)^0.5*DELR1(I  ) 

136  C 

137  CALL  R DERIV 

138  IF  (lOVFLO  .NE.  0)  60  TO  60 

139  C 

140  DO  45  I>1,NR  EQ 

141  0ELR2(I)  > DRDH(I)*DH 

142  45  R(I)  > R0(I)«0ELR2(I) 

143  C 

144  HT  « HT^0.5*OELH 

145  CALL  COEFFS 

146  CALL  R DERIV 

147  CALL  X DERIV 

148  IF  (lOVFLO  .NE.  0)  60  TO  60 

149  C 

150  DO  4b  1 = 1, NR  EQ 

151  NDELR3  * DRDH(1)*HDH 

152  DELR4  ■ (HDELR0(I)«DELR1(I)«DELR2(I)«HDELR3)/3.0 

153  46  R(1 ) > R0(I)«DELR4 

154  C 

155  DO  47  I>1,N6N8 


I 


159 


156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 
163 

169 

170 

171 

172 

173 

174 

175 

176 

177 
173 
179 
ISO 
181 
1s2 
U3 

184 

185 

186 
187 

168 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 
2 00 
2U1 
2 02 
203 
2 04 
205 
2 06 
2 07 


C 


C 


C 


C 


C 


C 

C 


C 


H0ELX3  * OXOH(I)*CH 

DELX4  = (HDELX(jCI)  + DELX1(I)*OELX2(I)*HOELX3)/3.0 
47  X(I>  = X0(I)+0ELX4 

IF  (K  .NE.  NS0VR4)  GO  TO  49 

IF  (JF-I  .6T.  1)  CALL  XFER  (R(N6V8*1),A  S TOR  ( 1 » JM  1 -1  > , N 18N  32  > 
CXLL  XFER  (R (N2'N41 ) ,DR  L I S T (1 , J M 1 ) , N 6N « ) 

C*LL  SET  P DR 
JXY  i J 
49  CONTINUE 

IF  (IPRINT  .NE.  0)  PRINT  900 

IF  (IPRINT  .NE.  0)  PRINT  901 , ( X ( I ) , I = 1 ,N 6N 8> 

IF  (IPRINT  .NE.  0)  PRINT  9 U2 , HT , ( R ( I ) , I = 1 , n6N»  ) 

DO  SI  I=1,N6N8 
ERROR  ( I ) = R ( I )-X  ( I ) 

IF  (ABS(ERR0R(I))  .GT.  RTOL)  go  to  61 
51  CONTINUE 
GO  To  65 

60  IF  (IPRINT  .NE.  0)  PRINT  90(1 

IF  (IPRINT  .NE.  0)  PRINT  9 C? , H T , ( R ( I ) , I = 1 , n6nR ) 

61  IF  (IPRINT  .NE.  0)  PRINT  600 
600  FORMAT  ('  ','OVRFLO') 

IF  (APS(DCLH/2.0)  .LT.  DH»1IN)  RETURN 
IOVFLO  = J 

CALL  XFFR  (R  SAVE  .R.NR  EG) 
call  XFFR  (R,X,N6Nfc) 

NR  STPS( JHF.LFREO)  * 2*NR  S T PS ( J H F , L F R EO  ) 

HT  = HTS(JKI) 

JAY  = JHI 

call  COEFFS 
go  To  31 


65  CALI  XFER  (ERROR, ER  L I S T ( 1 , J H F ) , N6Ne > 

IF  (J  .GT,  1)  call  XFER  (R(N6N84l),A  S TOR ( 1 , J - 1 ) , N 1 AN 32 ) 
CALL  XFFR  (R(N2*N41)  ,CR  L I ST ( 1 , J ) , N6N 8 ) 

CALL  SET  P OR 
69  CONTINUE 


J : NRAK1 

CALL  XFER  (R (N25N41 ) ,0R  L I S T ( 1 , J ♦ 1 ) , N 6N • ) 
J * J-1 

CALL  XFER(A  ST0R(1,J),A  PROD,n18N32) 

JHF  c NR  JHF'1 


72  call  kultvcca  prod, or  L1STC1,J),TENPV) 
CALL  XFERCTEHPV.OR  L 1 ST ( 1 , J ) , N6N8 ) 

IF  (J  .NE*  JMFA?)  GO  TO  73 

CALL  PULTVC  (A  PROD,ER  LlSTd  ,JHF  ) .TEMPV) 
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f" 


208 
2 09 
210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 


C 


c 


c 


c 


c 


c 


c 


c 


CALL  XFER  (TEMPV.ER  L IS T ( 1 , J H F ) , N6N8 ) 
JHF  = JHF-1 

73  J = J-1 

IF  (J  ,LE.  0)  60  TO  74 

CALL  MULTCA  PROOtA  ST0R<1*J),A  TEMP) 

CALL  XFER(A  TEMP, A PR00,N16N32) 

GO  TO  72 

74  CONTINUE 

IF  (lEW  .EO.  0}  RETURN 

IF  (lEW  .N£,  1)  GO  TO  85 
DO  82  11=1,4 
I = 9-II 
R(I)  = R(I-2) 

DO  81  J=1,NR  A 

81  OR  LIST(I,J)  = DR  LIST(I“2,J) 

DO  8t  J=1,NR  JHF 

82  ER  L1ST(I,J)  = ER  LIST(I-2,J) 

RETURN 


,95  R{7)  = -(R<1)>R(3)*1.C) 
R(8 ) = -(R(2)fR<4  )) 

R(5)  = P(2)-R(4) 

R(6)  = R(3)-R(1) 


86 


DO 

DR 

DP 

OR 

DP 


86  J=1,NR  A 

LIST(T,j)  r 

LIST(8,J)  = 
LIST(5,J)  » 
LIST(6,J)  = 


-(DR  LIST(1,J)^0R  LIST(3,J)) 
-(DR  LIST(2,J)*DR  LIST(4,J)) 
OR  LIST(2,J )-DP  LIST(4,J) 

DR  LIST(3,J)-0R  LIST(1,J) 


DO  ?7  J=1,NR 
EP  LIST(7,J) 
ER  LiST(P,J) 
ER  LIST(5,J) 
87  EP  L:5T(6,J> 
RETURN 


JHF 

* -(ER  LIST{1,J)4ER  LIST(3,J)) 
» -(ER  LIST(2,J)^£R  LIST(4,J)) 

* FR  LIST(2,J>-ER  LIST(4,J) 

* ER  LIST(3,J)-eR  LIST(1,J) 


900  FORMAT  <'0') 

901  FORMAT  ('  ',10x,4(2x,2F9.5)) 

902  FORMAT  ('  ',F10.2,4(2X,2F9.5)) 

END 


8PRT,S  INVERT. ENNU 


I 


161 


J 


rORFITT*lNVERT(1)  .tNNU 

1 SUBROUTINE  EN  NU 

2 C 

3 COM!<ION/OLTAH  C/DELTAH 

4 COMMON/JAY  COM/J 

5 COMI«tON/HTS  C0M/HTS(51) 

6 COMMON/ALPHA  C/ALPHA(51) 

7 COfPON/EXPNU  C /COEFNU  ,EXPNU 

S COPtrON/EN  COLL/HT,EN,NU 

9 COWMON/W  COM/WT.we 

10  REAL  NU 

11  C 

12  C 

13  WT  = (HT-HTS (J*1)  )/0ELTAH 

14  WB  = (HTS(J)-HT)/DELTAH 

15  EN  = EXP  (WT*ALPHA  (J  )-*WB*ALPHA  ( J ♦!  ) ) 

16  NU  = COEFNU*EXP(EXPNU*HT) 

17  RETURN 
13  C 

19  END 


SPRT.S  INVERT . INITLI 


fORFlTT*INVERT(1).INITLI 

1 SUBROUTINE  INITLI 

I C 

3 COrtKON/IPRNT  C/IPRINT 

4 CONNON/CS  COW/C. S, CSC 

5 COM^'ON/P  COM/P11  ,m^2,P33,M21  ,N31  ,!<l^3 

6 CONPUN/ INTE6R/R11  .R1 2 tR22« IR  SK I P ( 24 ) , DP  1 1 . D R1 2 . OR  2? 

7 COMPLEX 


8 

s 

Pl1fM22,N33.M21,M31,M23t 

9 

s 

R11,R12  ,R22, 

10 

s 

ORlI  ,DR12,DR22, 

11 

s 

34  ,B2,Bn,HALE  B 2 , ROOT , Q ( 2 ) , 

12 

s 

[>11f0l2«Dl3fD31tO32,D33, 

13 

s 

OEN,P(2)tT(2),EACTOR, 

14 

% 

064  , DP2  tOBO, 00(2) « 

15 

% 

0011  , 00 12, 0 01  3, 0031  , 0032, 0033, 

16 

% 

00EN,DP(2) ,0T(2) 

17 

c 

18 

c 

19 

84  = 

1.0^f"33 

20 

B2  = 

-(CS0+m33)«(1.O+p11)-p31**2-(1.O+m3  3)*(CS3*M22)>'' 

21 

BO  = 

(1.0  + Ml1)*(CS64(<i22)*(CSa+M33)-2.0*P21*A'31*w23 

22 

$ 

-(1.0^l«11)*P23**2'»(CSO  + »ii2)*M51*»2+(CSQ*l«l53) 

23 

c 

24 

MALE 

B2  = ti2/2.r 

25 

ROOT 

= CSQRKMALE  b2**2-B4*B0) 

26 

0(1  ) 

* CSQRT((-HALE  B 2T R 00 T ) /R4  ) 

27 

0(2) 

» CS0RT((-HALE  b2-R00T)/P4) 

28 

c 

29 

IE  (IPRINT  .NE.  0)  PRINT  2 O'’ , 0 ( 1 ) t 4 ( 2 ) 

30 

200  EORR'AT  ('0','0  = ',2(2X,2E13.4),/) 

31 

c 

32 

00  I 

1 K=1,2 

33 

Oil 

* 1 .O  + Pl 1-0 (K  )**2 

34 

012 

= -W21 

35 

013 

= -P31+0(K)*S 

36 

031 

= KI31+Q(X)*S 

37 

032 

* P23 

38 

033 

= CSC^N33 

39 

DEN 

= 011*033-013*031 

40 

p(r ) 

» (-012*033*013*032)/0FN 

41 

31  T(x ) 

» 0(K)*P(K)-S* (-01 1*032*01 2*031 )/OEN 

42 

c 

43 

064 

s m33 

44 

DB2 

* -P33*(1  ,P*m11)-(CSO*m33)*»i11-2.0*W31**2 

45 

S 

-m33*(CS0*M22)-(  1,0*m3  3)*N22*?.0*'*23**2 

46 

OflO 

* m11*(CSO*E'22)*(CSO*«33)*(1.0*w11)*n22*(CSO*h33) 

47 

s 

♦(1 .0*M11)* (CSe*M22)*M33-6.n*P21*N31*M23 

48 

s 

-(2.0*3.(.*M11)*n23**2 

49 

5 

♦ (2.0*CSO*3.0*RI22)*N31**2 

50 

S 

♦(2.0*CSO*3.0*h33)*m21**2 

51 

c 

l*«2 
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53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67  C 
63 

69 

70 

71 
7? 

75  C 

74 

75 

76 

77 
73 
79 
8C 
b1 

32 

33  C 

34 
95 

36 

37  C 

38 

89 

90 

91 

92  C 

93 


K = 1 .2 

= -((0B4*(5(K)*«24DB2)*W(K)**34DB0) 

/((4,f'*B4*6{lO**24  2.0*B2)*Q(tC)) 

= f»n-2.0*C  (K)*0G(K) 

* -M21 

s -M3140Q(K)*S 

» f«3l4D0(K)*S 
= f'23 
= 1^33 

= D011»D33+D 11*0 03 3-0 613*031-613*00 31 
= -D0EN*P(K  )/D£N 

♦{-0012*033-012*00 33* 001 3* 032* 01 3* 00 32)7 OEN 
= OQ(K)*P(K)*0(K)*6P(K) 

-S* (-0  0 11*032-01  1*0 03 ?*0012*031*012*  0031 
-(-oii*o3?*oi2*o3i)*ooeN/oEN)/oeN 

(T(1)*C*P(1))*(f*0(2)>-fTC?)*C*P(2))*(C*C(1)) 

FACTtK  = 2.0/OEN' 

fill  * (C*(T(1)-T(2))*T(1)*0(2)-T(2)*Q(1))*F»CT0R 
R?2  = (C*(T(1)-T(2))*P(1)-P(2))*FACTOR 
P12  = <Q(2)-C(1))*FACT0R 

OOE'i  = (OT  (1  )*C*0P<1  ) )*  (C*C(  2)  )♦  (T(1  )*C*P(  1)  )*0a(  2) 

1 -C0T(?)*C*0P<2))*<C*O(1))-<T(2)*C*P(2))*0O(l) 

0R11  = -R1  1*OOE4'/OeN 
I ♦(C*(DT(1)-0T(2)) 

I ♦OT(1)*C(2)+T(1)*OQ(2)-OT(2)*Q(1)-T(2)*OQ(1))*F»CTOR 

OPT?  = -P22*OOEN/OEN 

1 ♦(C*(0T(1)-0T(2))+0P(1) -0P(?) ) *F ACTOR 

OPir  = -R12*00EN70EN 
» ♦(00(2)-00(1) )*FACTOR 

P11  = C*R11-I.r 
R22  » C*R22-1.0 
R12  * C*R12 

ORII  * C*0R11 
0R22  « C*0R22 
0R12  » C*0R12 
return 

ENO 


on  i 1 

00  (K  ) 
i 

0011 

0012 

001  ! 
0031 
003? 

oo*’ 

00£*J 

OPCIt) 

i 

41  OT ( T ) 

5 


a 


iPRT.S  invert. COEFFS 


r 


t'ORFITT*INVERT(1).COEFfS 

1 SUBROUTINE  COE»FS 

2 C 

3 COFt«ON/THET*  C/THET* 

4 COM^ON/FLD  C OH/ # Z IM , C 00  I Pt M* 6 FL D 


5 

d 

7 

8 
9 

TO 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32  C 

33  C 

34 


37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


COWPyN/FRO  COM/FREt 

COMWON/EN  COLL/HT  ,EN,COLL 

COPPON/WN  COP/WAVE  NR 

COMPON/CS  COP/C, S, CSC 

COPPON/P  COP/p11,p22,p53,P21,p31,P23 

COPPON/SD  C OP /OllA, Si lBtDl1P,S21, 021,522,022 

COPPON/OSD  C OP /OO 11A, OS  1 1P, OOliB, 0521,00  21, 0522,002? 

COPPON/IEW  COP/IEW 
COPPLEX 

$ P11,P22,P33,P21,P31,P?3, 

S OllA, SI  IE, 0 11 B,S21, 021,522, 02?, 

5 DOHA, OS11B,0011B, 0 521,0  021,0522,0022, 

S U,USQ,0,IU0, 

$ P230,p31d, 

S P23230 ,P31310 ,P23310, 

S T14  OVC,T32  0VC,CT41, Til ,T31,T54  OVC, 

$ 0T14OC,0T32OC,0CT41,0T11,0T31,0T34OC 

REAL  PAGFLO, 

t PV,NY,IUO  PRT, 

S PSQTSO ,NSQr SO ,PNYSa 

OIPENSION  U PARTS(2),US0  PRT(2),0  PARTS(2),IU0  PRT(?) 
equivalence  {U,U  PARTS) , (US0,US0  PRT), (0,0  P AR TS ) , ( I U 0 , 1 U 0 PRT) 
OATA  PI/3.141593/ 

OATA  RTO/57. 29578  / 

OATA  COEFF  X/3.182357E3/ 

OATA  COEFF  Y/1 .758796E11 / 

OATA  VEL  LT/2. 90792825/ 


call  EN  NU 

X « COEF  EN*EN 
Z « COLL*OV  OPGA 
U PARTS(I)  * 1.0 
U PARTS(?)  « -Z 
USQ  PRT(1)  * 1.P-Z*«2 
use  PRT(2)  » -Z-Z 
0 > -X/(U*(USQ-YSO)) 

lF(AbS(D  PARTSd))  .LT.  1.0E-30  .AND. 

$ A8S(0  PARTS(2))  .LT.  1.0E-30)  o » 0.0 

lUO  PfiT(l)  « Z*0  PARTS<1)-0  PARTS(2) 

100  PRT(2)  » 0 PARTS<1)^Z*0  PARTS!?) 

Pit  ■ USO*0 
P?2  « P11-PS6YS0*0 
P33  ■ Pt1-NS«YSO*0 
P21  » NY*IOD 
P31  ■ -py*IUD 


i 
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52 

1*23  = -•'NVSO*0 

53 

C 

54 

0 = l.f /<1.0*W3’) 

55 

* •'25*0 

56 

1*310  * •'31*0 

57 

T14  uVC  • OVP  C-SSO  0VC*0 

38 

•l252iD  = •^i3*««230 

59 

132  UVC  = (CSQ**’2i-WcI230)*0VR  C 

60 

1*31 110  = *’31*'»310 

61 

CT41  = C^Cl.C^ni^KlIIlO) 

62 

Til  = -S*k310 

63 

1*73310  = ■*23*f'3lO 

64 

T «1  = P25310-K21 

65 

134  OVC  = S OVP  C*l*230 

66 

c 

o7 

Oil*  = 111*111 

68 

Sll'-  = 114  0VC*CT<.1 

69 

011'='  = 114  0VC-rT41 

7'J 

S?1  = 134  0VC*T31 

71 

021  134  0VC-T31 

72 

S22  = C*T32  OVC 

73 

022  = C-T32  OVC 

74 

c 

75 

0T14CC  = -SSQ  OVC* 0* ( 0-1 .0) 

76 

0T72OC  = (P'2?-«23230*  (0*1  .0)  )*OVR  C 

77 

DCT41  = C*  CK*  1 **’3  1 31  0*(  0*  1 .0)  ) 

7? 

Dili  r 111*0 

79 

0133  = M23310*  (0*1  .Ci)-'*?1 

8 0 

DT340C  * 134  0VC*0 

d1 

c 

82 

OOllA  = 0111*0111 

63 

05l1t  s 0T140C*DCT41 

84 

OOllfc  = DT140C-OCT41 

65 

0S21  OT3<.OC*DT3  1 

66 

0021  = 0T340C-0T31 

67 

OS22  = 0T32OC 

68 

002?  = -0T320C 

69 

PETUKN 

yo 

c 

91 

c 

92 

ENTRY  IMT  1 

93 

lEW  • 1 

94 

OIR  CS  f'  * SlN(COOIP/PTO)*SrN<AZir/RTO) 

95 

DIR  CS  N * -COS(COOlP/RTO) 

96 

C » COSdMETA/RTO) 

97 

S * 8IN(THETA/R10) 

98 

OVR  C » 1.C/C 

99 

CSO  * C**2 

1U0 

S OVP  C * S/C 

1u1 

sso  uvc  » s**2/r 

102 

RETUkN 

1u3 

c 

166 


I 


r 


1C4 

C 

105 

fNTRY  INIT  S 

106 

0P£6A  = 2.C*PI*FREQ*1CC0.0 

107 

W»VE  NR  = 0»*E6A/VEL  LT 

109 

COEF  EN  = COEFF  X *1 , 0e06 /OPE G 4 

109 

OV  OHGA  = 1.0/OPEGA 

110 

V = -COEFF  Y*MAGFLD/0PE6A 

111 

YSO  = V*«2 

112 

PY  s OIR  CS  P*Y 

113 

NY  = DIR  CS  N*Y 

114 

PSOYSQ  = DIR  CS  M*»2*YSQ 

115 

NSOYSO  = DIR  CS  N»»2*YSQ 

116 

PNYSG  = OIR  CS  P»DIR  CS  N*YSQ 

117 

RETURN 

118 

c 

119 

END 

SPRT.S 

INVtRT 

.OIFFEQ 

I 


1 
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»»0RnTT*l^»VERT(1).0IfFE0 

1 SUBROUTINE  DIFF  EO 

2 C 

3 C0f»*'oN/S0  C0M/D11A,S11B, 0119, S21, 021, S22t022 

4 CORi«'ON/OSO  COF</0011«,0Sil8, 00119, 0S21, 0021,0522,0022 

5 CORRON/W  COR/WT.WB 

6 COMMON/ INTEGR/R ( 36) 

7 CORRfN/OROM  C/0R0H(36) 

3 CORRON/*  C0R/X(6) 

9 CORRON/OXOH  C/0*0H(6) 


10 

CORRON/OROER  C/R11,R12,B22,P(3,3),DR(6), 

11 

1 

0ER(3),P0ER(3,3),00ER(6) 

12 

corron/ovrflo/iovflo 

13 

corplex 

14 

1 

oil*, SIlB, 011b, S21, 021, $22,022, 

15 

, 

DOHA, OSIIb, 00116,0521, 0021, 0522,0022, 

16 

\ 

R11,H12,S22  ,P,OR, 

17 

1 

OER ,POEP,OOER, 

IS 

1 

t:11,Pl2,f-22,R12P12,C12, 

19 

%. 

0B11  ,0b22,0Pl2,0C12, 

20 

s 

X11  ,Xl?  ,X21 ,X22, 

21 

1 

fall ,612,02) ,622,623,632,633, 

22 

t 

0TERP(3) 

23 

OlRf.NSION  R RTRX  (30 ,0ER1V<'*6) 

24 

EQUIVALFNCE  (R11,R  RT fiX ) , ( 0 E R , 0 € R I V ) 

25 

C 

26 

C 

27 

entry  R DtRlV 

23 

CALL  XFER  (R,R  *TRX,36) 

29 

IXFL,<6  » 'J 

30 

c 

31 

20 

00  21  1*1,6 

32 

IF  (ABSCR  RTRX(I))  .6T,  9.0)  60  TO  9C 

33 

21 

continue 

34 

c 

35 

BH  » R11*  (OllA-0119) 

36 

912  * R12*021 

37 

822  * R22*022 

38 

R12»12  * R12*R12 

39 

C12  « R12«S21 

40 

c 

41 

0FR(1)»  (B  11  *8  12  ♦0.12-51 18-51  Ip  )*R1  HR  12R  1 2*0  22aC  1 24C  1 2-0l  1 A-01  IB 

42 

0FR<,;)«  (el1^B12*B22  -S11B-S22)*R12*(R11*0214S21)*(R2241 .0) 

43 

OER  (3)*  (Bl2*Bl2^t22-S22-S22)*R22*Rl2R12»<0l1*-0llB)*B12^912^0  22 

44 

IF  (1XFLA6  .NE.  0)  60  TO  6C 

45 

c 

46 

Xl1  * -Slla4BllABl2 

47 

K12  « S214R11*02HR12*022 

48 

X21  » D2HR12*<P11*-0  11B)^R22*021 

49 

x?2  • -S22^B124P22 

50 

c 

51 

611  » XlHxll 
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1 


sz 

G12  * X124X12 

S3 

G21  * X21 

S4 

G22  * X11*X22 

55 

G23  * X12 

56 

G32  * X21^X21 

57 

G33  = X22^X22 

5B 

C 

59 

DO  31  L*1,3 

60 

POtRd.L)  * 6l1*P(1fL)*Gl2*P(2,L) 

6l 

PDtR(2,L)  * G21*P(1 fL)+G22*P(2,L)+G23*P(3,L) 

6Z 

31 

P0EP(3,L)  s G32*P<2,l.)  + G33*P<  3,L) 

63 

C 

64 

0P11  = R11*(OD11A-0011B) 

65 

DB22  = R22*D022 

66 

0B12  = R12*0021 

67 

0C12  = R12*DS21 

63 

C 

69 

DTEPPd)  = (OB11*OB12'»0612-OS11B-OS11S)*R11 

70 

s 

♦R12R^2*D022^DC12*0C12-D011»-D011P 

71 

0TE'1P(2)  = <DB11^DB12+DB22-DS11B-0S22)*R  12 

72 

s 

♦ (R11*DD21'»DS21)*(RZ2  + 1.C) 

73 

DTEPK3)  * <DBl2  + De12+0B22-DS22-0S22)*R22 

74 

1 

♦R12R12*(OO114-OD110)>OB12+DB12^DD2? 

75 

C 

76 

OOERd)=  OTE«Pd)*WT  •»G11*0R<  1)+G12*0R( 

2) 

77 

OOEP(4)=  DTEMPd)*KB  ♦611*DR(  4)+Gl?*DR( 

5) 

78 

OOER12)=  0TEWP(2)*WT  ♦G?1*0R(  1)>G22*0R( 

2)+G23*0fi( 

3) 

79 

OOER(5)=  OTEWP{?)*WB  ♦G21*0R(  4)^G22*DR( 

5)  ♦6?3*DR ( 

6) 

60 

D0EP<3)=  0TE«P(3)*WT  ♦G3?*DR( 

2)+G33*DR ( 

3) 

81 

00EP(6)=  0TEP!P(3)*WB  ♦G3P*DR( 

5)*G33*DR( 

6) 

8Z 

c 

83 

c 

<*  + l*B>/I  = B-I*A 

64 

DO  41  1*1,35,2 

35 

ORDH(I)  * OERIVd^l) 

66 

41 

0R0H(l4l  ) « -OERlVd) 

87 

RETURN 

88 

c 

89 

c 

90 

ENTRY  X OERIV 

91 

CALL  XFER  (X,R  •'TRX,6) 

92 

IXFLAG  * 1 

93 

GO  TO  20 

94 

c 

95 

60 

DO  61  1«1,5,2 

96 

OXOH(l)  « DERIVCdl) 

97 

61 

DX0H(d1  ) » -OEPlVd) 

98 

RETURN 

99 

c 

100 

c 

101 

ENTRY  SET  P OR 

102 

CALL  XFER  (RtR  *'TRX,36) 

103 

00  7t  L»1,3 

t 


A 


r 


104 

00  71  1=1,3 

105 

71 

P( 1 ,L)  = 0.0 

106 

72 

P(L,L)  =1.0 

107 

C 

108 

00  74  1=1,3 

109 

0R(I)  » 0R{1'»3) 

110 

74 

0R(1*3>  = 0.0 

111 

CALL  XFER  (R  MTRX,R,36) 

112 

WT  = 1.C 

113 

WB  = 0.0 

114 

RETURN 

115 

C 

116 

90 

lOVFLO  = 1 

117 

return 

118 

c 

119 

ENO 

12C 

121 

122 

SPRT.S  INVERT. f'TXFCT 


»'.0RF1TT*INWERT(1).MTXFCT 


1 

SUBOOUTINE  PTX  FCT 

2 

C 

3 

DIPENSION  A(1),B(1) 

4 

COPPLEX  C(3.3),0(3,3),E(3,3) 

5 

i 

F (3,3) ,G<3)  ,H (3)  ,S 

6 

c 

7 

c 

8 

ENTRY  XFER  (A,B,N) 

9 

00  I 1 J = 1 ,N 

10 

11 

e( J ) < A ( J ) 

11 

RETURN 

12 

c 

13 

c 

14 

ENTRY  PULT  (C,0,E) 

15 

DO  2^  J=1,3 

16 

DO  2c  JJ*1,3 

17 

SUP  = 0.0 

18 

DO  21  JJJ*1,3 

19 

21 

SUP  * SUP^C (J  , J J J )»D  ( JJ J ,J J ) 

20 

22 

E(  J ,JJ  ) = SUP 

21 

RETUFN 

22 

c 

23 

c 

24 

ENTRY  PULTVC  (F,G,H) 

25 

DO  32  J»1,3 

26 

SUP  = 0.0 

27 

DO  31  J Js1  ,3 

28 

31 

SUP  = SUP^FIJ, JJ)*G(JJ) 

29 

32 

H(J)  = SUP 

30 

RETURN 

31 

c 

32 

END 

8PRT,S  INVERT. OGELb 
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>*ORFITT*I%VERT(1).OCELB 


SUBROUTINE  D6ELP  (R.At'*tN»NUDtMLDtEPS«IER) 


Subroutine  ogelb 

PURPOSE 

TO  SOLVE  * SYSTEM  OF  SIMULTANEOUS  LINEAR  EQUATIONS  WITH  A 
COEFFICIENT  MATRIX  OF  BAND  STRUCTURE. 

Ui>  AGE 

CALL  0GELP(R,A,M,N,MU0,ML0,EPS,IER) 


DtSCRIPTION  OF  PARAMETERS 


R - DOUELE  PRECISION  M BY  N RIGHT  HAND  SIDF  MATRIX  DELB 

(DESTROYED).  ON  RETURN  P CONTAINS  THE  SOLUTION  OELB 

OF  THE  EQUATIONS.  DELB 

A - DOUBLE  PRECISION  M bY  M COEFFICIENT  MATRIX  WITH  OELB 

PAND  STRUCTURE  (DESTROYED).  DELS 

M - THE  NUMBER  OF  EQUATIONS  IN  THE  SYSTEM.  OELB 

N - THE  number  of  RIGHT  HAND  SIDE  VECTORS.  OELB 

MUD  - THE  NUMBER  OF  UPPER  CODIAGONALS  (THAT  MEANS  DELB 

CODIAGONALS  ABOVE  MAIN  DIAGONAL).  OELB 

M.LD  - the  number  of  LOWER  CODIAGONALS  (THAT  MEANS  DELB 

CODIAGONALS  BELOW  MAIN  DIAGONAL).  DELB 

EPS  - SINGLE  PRECISION  INPUT  CONSTANT  WHICH  IS  USED  AS  DELB 

RELATIVE  TOLERANCE  FOR  TEST  ON  LOSS  OF  OELB 

SIGNIFICANCE.  DELB 

lER  - OESULTING  ERROR  PARAMETER  CODED  AS  FOLLOWS  OELB 

IFR*0  - NO  ERROR,  DELB 

IER*-1  - NO  RtSULT  BECAUSE  OF  WRONG  INPUT  PARAME-  OELB 
TERS  M,mUD,MLD  or  BECAUSE  OF  PIVOT  ELEMENTDELB 
AT  ANY  ELIMINATION  STEP  EQUAL  TO  0,  OELB 

IER=M  - WARNING  OUt  TO  POSSIBLE  LOSS  OF  SI6NIFI-  DELB 
CANCE  INDICATED  AT  ELIMINATION  STEP  X>1,  OELB 
WHERk  PIVOT  element  WAS  LESS  THAN  OR  DELB 

EQUAL  TO  The  INTERNAL  TOLERANCE  EPS  TIMES  OELB 
ABSOLUTELY  GREATEST  ELEMENT  OF  MATRIX  A.  OELB 

OELB 

BcMARKS  DELB 

BAND  matrix  a IS  ASSUMED  TO  3E  STORED  ROWWISE  IN  THE  FIRST  DELB 
ME  SUCCESSIVE  STORAGE  LOCATIONS  OF  TOTALLY  NEEDED  MA  OELB 

STORAGE  LOCATIONS,  WHERE  DELB 

MA»M*MC-ML*(ML^1)/2  RND  ME«MA-MU*(MU+1) /2  WITH  DELB 
MC *MIN (M  , 1*MUDmMLD ) , ML“MC-1-MLD,  MU*MC-1-MUD.  DELB 

RIGHT  HAND  SIDE  MATRIX  R IS  ASSUMED  TO  BE  STORED  COLUMNWISE  DELB 
IN  N*M  SUCCESSIVE  STORAGE  LOCATIONS.  ON  RETURN  SOLUTION  DELB 

MATRIX  R IS  STORED  COLUMNWISE  TOO.  DELB 

INPUT  PARAMETERS  M,  MUD,  MLO  SHOULD  SATISFY  THE  FOLLOWING  DELB 

RESTRICTIONS  MuD  NOT  LESS  THAN  ZERO  DELB 

MlD  NOT  LESS  THAN  ZERO  DELS 


I 
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I 


I 


5?  C 

53  C 

54  C 

55  C 

56  C 

57  C 

58  C 

59  C 

60  C 

61  C 

62  C 

63  C 

64  C 

65  C 

66  C 

67  C 
63  C 
69  C 
7C  C 

71  C 

72  C 

73  C 

74  C 

75 

76 

77  C 

78  C 

79 
eO 
81 
82 

83  C 

84  C 

65  C 

66  C 

67  C 

88  C 

89  C 
9C  C 

91  C 

92 

93 

94 

95 

96 

97 

98 

99 

100  C 
1Ul  C 

102  C 

103 


Muo+Mto  NOT  GREATeR  THAN  2*M-2.  DELS 

NO  ACTION  BESIDES  ERROR  MESSAGE  IER=-1  TAKES  PLACE  IF  THESE  OELB 
restrictions  are  NOT  SATISFIED.  DELB 

the  procedure  gives  results  if  the  restrictions  on  input  OELB 

PARAMETERS  APE  SATISFIED  AND  IF  PIVOT  ELEMENTS  AT  ALL  OELB 

ELIMINATION  STEPS  ARE  DIFFERENT  FROM  0.  HOWEVER  WARNING  DELB 

IER=K  - IF  GIVEN  - INDICATES  POSSIBLE  LOSS  OF  SIGNIFICANCE.  OELB 
IN  CASE  OF  A WELL  SCALED  MATRIX  A AND  APPROPRIATE  TOLERANCE  DELB 
EPS,  IER=r  MAT  PE  INTERPRETED  THAT  MATRIX  A HAS  THE  RANK  K,  OELB 
NO  WARNING  IS  GIVEN  IF  "ATRIX  A HAS  NO  LOWER  C001A60NAL.  OELB 

OELB 

Subroutines  and  function  subprograms  re&uired  oelb 

NONE  OELB 

OELB 

•'tTHOC  OELB 

SOLUTION  IS  DONE  MV  MEANS  OF  GAUSS  ELIMINATION  WITH  DELB 

COLUMN  PIVOTING  ONLY,  IN  ORDER  TO  PRESERVE  BAND  STRUCTURE  DELB 
IN  REMAINING  COEFFICIENT  MATRICES.  DELB 


DELB 

DELB 

DELB 

DELB 

DELB 


DIMENSION  R(1),A{1)  delb 

DOUPLE  PRECISION  F , A , PI  V , Tp , TOL  DELB 

DELB 

TEST  ON  WRONG  INPUT  PARAMETERS  DELB 

IF(«»lD)47,1  ,1  OELB 

1 I F(»-uD)47,2,2  oelb 

2 MC  = WmlDamuD  delb 

IF(mc*1-M-.m)3,3,47  delb 

OELB 

PREPARE  INTEGER  PARAMETERS  DELB 

mC=NUMBER  OF  COLUMNS  IN  MATRIX  A DELB 

M0=NUM6£R  OF  ZEROS  TO  BE  INSERTED  IN  FIRST  ROW  OF  MATRIX  A DELB 

*L»NL'MBER  OF  MISSING  ELEMENTS  IN  LAST  ROW  OF  MATRIX  A DELB 

MRsINOEX  OF  LAST  ROW  IN  MATRIX  A wITH  MC  ELEMENTS  OELB 

MZ*TOTAL  NUMPER  OF  ZEROS  TO  PE  INSERTED  IN  MATRIX  A OELB 

rA=TOTAL  NUMPER  OF  STORAGE  LOCATIONS  NECESSARY  FOR  MATRIX  A DELB 

NN  = NL'MBeR  OF  ELEMENTS  IN  MATRIX  R DELB 

3 IF(Mt-M)5,5,4  delb 

4 MC*M  delb 

5 MO*Mt-MU0-1  DELB 

ml*mc-mlo-i  delb 

MR«»-ML  OELB 

M7 * (MU* (MUAl ) ) /?  DELB 

MA*M*MC-(ML*(ML*1  ))72  DELB 

NMxn*M  OELB 

OELB 

MOVE  ELEMENTS  BACKWARD  AND  SEARCH  FOR  ABSOLUTELY  GREATEST  ELEMENT  OELB 
(NOT  NECESSARY  IN  CASE  OF  A MATRIX  WITHOUT  LOWER  CODIACONALS)  OELB 

IFR«u  OELB 


I 
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1QA 

PIV=w.0P 

DELB 

105 

IF(rLD)14,14,6 

DELB 

106 

6 

J J 

DELB 

1U7 

J=K A-H2 

DELB 

10? 

KST=J 

DELB 

10V 

DO  9 K^l  ,((ST 

DELB 

110 

TP=A ( J ) 

DELB 

111 

A( J J)*Te 

DELB 

112 

TP  = DAf-i  (TB  ) 

DELB 

113 

ir(Tti-PIV)o,8,7 

DELB 

1U 

7 

FIV=TP 

DELB 

115 

8 

J=J-1 

DELB 

116 

9 

J J=J J-1 

DELB 

If" 

C 

DELB 

11? 

c 

INStKT  ZEROS  IN  FlkST 

MU  ROWS 

(NOT  NECESSARY  IN  CASE  *2=0) 

DELB 

11? 

I F ( Z ) 1 4 , U , 1 0 

DELB 

120 

H 

JJ  = 1 

DELB 

121 

J = 1»ilZ 

DELB 

122 

IC=1«RUD 

DELB 

123 

DC  1i  1 = 1, MU 

DELB 

124 

DC  1,.  K=1,MC 

DELB 

125 

A(Jj;=C.OO 

DELB 

126 

IF{ir-IC)11,11,1? 

DELB 

127 

11 

A(J J)=A( J) 

DELB 

12? 

J*J*1 

DELB 

12? 

12 

J J*J J^1 

DELB 

130 

13 

1C=IC41 

DELB 

131 

c 

DELB 

132 

c 

GFNEkATE  TEST  V»LUE 

FOR  SINGULARITY 

DELB 

153 

14 

TOL  =tPS ‘P  IV 

DELB 

134 

c 

DELS 

135 

c 

DELB 

136 

c 

start  dfcompos iti on 

LOOP 

DELB 

137 

rST  = 1 

DELB 

136 

IDSTxrC 

DELB 

13? 

IC'^l-l 

DELB 

14C 

DO  "e  r»1,K 

DELB 

141 

IF(k-mr-1)16,16 ,15 

DELB 

142 

15 

IDST*I0ST-1 

DELB 

143 

16 

ID*IDST 

DELB 

144 

'LR  D 

DELB 

145 

lF(lLR-'')1?,ie,^7 

DELB 

U6 

1 7 

1LP*M 

DELB 

147 

18 

1 1*KST 

DELB 

14? 

c 

DELB 

149 

c 

PIVOT  SEARCH  IN  FIRST 

COLUMN 

(ROW  INDEXES  FRO*  I »K  UP  TO  1«ILR) 

DELB 

150 

PIV«i.',DC 

DELB 

151 

DO  2a  I=K,ILR 

DELB 

152 

T«»«ftABS(A(II)) 

DELB 

153 

IF(Te-PIV)20,2C,19 

DELB 

154 

19 

P1V*TB 

DELB 

155 

J»I 

DELB 
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154 

JJ  = II 

DELB 

157 

20 

DELB 

158 

21 

ID=ID-1 

DELB 

159 

’2 

I1=II^I0 

DELB 

160 

c 

DELB 

161 

c 

TFST  ON  SINGULARITY 

DELB 

162 

IF(P1V)4:',47,23 

DELB 

163 

23 

IF(IcR)?6,24,26 

DELB 

164 

r4 

I F(riV-TOL)25,25  ,i6 

DELB 

165 

25 

IER=K-1 

DELB 

166 

?6 

PIV  = 1 .Ofj/A(  JJ) 

DELB 

167 

c 

DELB 

16? 

c 

PIVOT  ROW  REDUCTION 

AND 

ROW 

INTERCHANGE 

IN 

right  hand  side  r 

DELB 

169 

I D = J-K 

DELB 

170 

DO  2','  I = K,NM,M 

DELB 

171 

I I = 1 + ID 

DELB 

172 

T9  = Pi  v*R  ( in 

DELB 

173 

R ( I I )=R  ( I ) 

DELB 

174 

27 

R(I  ) = Tb 

DELB 

175 

c 

DELB 

176 

c 

PIVOT  ROW  REDUCTION 

AND 

ROW 

Interchange 

IN 

COEFFICIFNT  MATRIX  A 

DELB 

177 

I I = S T 

DELB 

173 

J=J J+IC 

DELB 

1/9 

DO  ?i  I=JJ,J 

DELB 

180 

TP=PI V* A ( I ) 

DELS 

1j1 

A ( I ) = A ( I I ) 

DELB 

132 

A( I I )=TP 

DELB 

163 

2i 

mini 

DELB 

164 

c 

DELB 

135 

c 

ELEMENT  PEDUCTION 

DELB 

1C6 

I F(K-ILP 129,34 ,34 

DELB 

187 

29 

I C=Y'ST 

DELB 

le« 

II=Y+1 

DELB 

189 

*1U  = tf  ST^I 

DELB 

IvC 

l•7=tfST♦IC 

DELB 

191 

DO  3<  mifILR 

DELB 

1V2 

c 

DELB 

193 

c 

IN  "ATRIX  A 

DELB 

194 

I 0*  I 0*K,C 

DELB 

195 

JJ*I-PR-1 

DELB 

196 

I F<  JJ  131  ,31  .30 

DELB 

1»» 

*C 

1D>IL-J J 

DELB 

1 .» 

»1 

PIV»-7(ID) 

DELB 

19t 

J «1  9*  1 

DELB 

. 

DO  'l  JJ*H’J,F'Z 

DELB 

« 

4( J-1  )»A  < J )4PI  V*A  (J J ) 

DELB 

4 

J • J ♦ 1 

DELB 

« 

A ( J -1  )sl .DU 

DELB 

■» 

DELB 

I*  •*»»  I * 4 

DELB 

- 

i •• 

DELB 

»'  • . J J«I  .SB,** 

DELB 
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2u8 

R(J J)=R{ JJ)4P1V*R (J) 

DELB 

2J9 

33 

OELB 

210 

34 

KST=lkST>PC 

DELB 

211 

IF(1LR-Nfi)36,35,35 

DELB 

212 

35 

1C=IC-1 

DELB 

213 

36 

I D = K-RR 

DELB 

214 

IF(ID)38,3d,37 

DELB 

215 

37 

t(ST=RST-I0 

DELB 

216 

38 

CONTINUE 

DELB 

21’ 

C 

END  OF  DECOWPOSITICN  LOOP 

DELB 

213 

C 

DELB 

21? 

C 

DELB 

220 

C 

PFCK  SUBSTITUTION 

DELB 

221 

IF(«C-1  >46,46, 3«> 

DELB 

222 

39 

IC  = 2 

DELB 

223 

ICST=^A^f'L-PC^2 

DELB 

224 

< 

II 

P-4 

DELB 

225 

DC  Li  1 = 2, !i 

DELB 

226 

K ST  =KST-MC 

DELB 

22/ 

11=11-1 

DELB 

228 

J=I  I-NR 

DELB 

229 

IF( J>41,41 ,4C 

DELB 

230 

4C 

KST=nST*J 

DELB 

231 

41 

DO  43  J=II,NM,M 

DELB 

232 

TB=R ( J ) 

DELB 

233 

N7*KST^IC-2 

DELB 

234 

I D = J 

DELB 

235 

00  4t  JJ=(CST,NZ 

DELB 

236 

ID*IC4l 

DELB 

237 

42 

T9*To-A(JJ)»R{I0) 

DELB 

238 

43 

R ( J )=Te 

DELB 

239 

IF(IC-WC)44,45,45 

DELS 

240 

44 

IC=IC*1 

DELB 

241 

45 

continue 

DELB 

242 

46 

RETURN 

DELB 

243 

C 

DELB 

244 

C 

DELB 

245 

C 

error  return 

DELB 

246 

47 

IER«-1 

OELB 

247 

RETURN 

DELB 

248 

end 

SPRT.S  INVERT. DCELS 
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KORF1TT*INVERT(1),OGELS 


1 

2 C 

3 C 

4 C 

5 C 

6 C 

7 C 
3 C 
9 C 

10  C 

11  c 

12  C 

13  C 
U C 

15  C 

16  C 

17  C 

18  C 

19  C 

20  C 

21  C 

22  C 

23  C 

24  C 

25  C 

26  C 

27  C 
23  C 

29  C 

30  C 

31  C 

32  C 

33  C 

34  C 

35  C 

36  C 

37  C 
33  C 

39  C 

40  C 

41  C 

42  C 

43  C 

44  C 

45  C 

46  C 

47  C 
43  C 

49  C 

50  C 

51  C 


SUBROUTINE  DGE  L S ( R , * , F* , N , E PS  , I E R . A UX  > DELS 

DELS 

DELS 

DELS 

subroutine  dgels  dels 

DELS 

PURPOSE  DELS 

TO  SOLVE  A SYSTEP  OF  SIMULTANEOUS  LINEAR  EQUATIONS  WITH  DELS 

SYMMETRIC  COEFFICIENT  MATRIX  UPPER  TRIANGULAR  PART  OF  WHICH  DELS 
IS  ASSUMED  TO  BE  STORED  COLUMNWISE.  DELS 

DELS 

USAGE  DELS 

CALL  DGELS(R,A,M,N,EPS,rER.AUX)  DELS 

DELS 

DESCRIPTION  OF  PARAMETERS  DELS 

R - DOUBLE  PRECISION  M BY  N RIGHT  HAND  SIDE  MATRIX  DELS 

(DESTROYED).  ON  RETURN  R CONTAINS  THE  SOLUTION  OF  DELS 
THE  EQUATIONS.  DELS 

A - UPPER  TRIANGULAR  PART  OF  THE  SYMMETRIC  DOUBLE  DELS 

PRECISION  M by  M COEFFICIENT  MATRIX.  (DESTROYED)  DELS 

M - THE  NUMBER  OF  EQUATIONS  IN  THE  SYSTEM.  DELS 

N - THE  NUMBER  OF  RIGHT  HAND  SIDE  VECTORS.  DELS 

EFS  - SINGLE  PRECISION  INPUT  CONSTANT  WHICH  IS  USED  AS  DELS 

RELATIVE  TOLERANCE  FOR  TEST  ON  LOSS  OF  DELS 

SIGNIFICANCE.  DELS 

lER  - RESULTING  ERROR  PARAMETER  CODED  AS  FOLLOWS  DELS 

IER=0  - NO  ERRORf  DELS 

IER=-1  - NO  RESULT  BECAUSE  OF  M LESS  THAN  1 OR  DELS 

PIVOT  ELEMENT  AT  ANY  ELIMINATION  STEP  DELS 

equal  TO  0,  DELS 

I£R=K  - WARNING  DUE  TO  POSSIBLE  LOSS  OF  SI6NIFI-  DELS 
CANCE  INDICATED  AT  ELIMINATION  STEP  K*1,  DELS 

WHERE  PIVOT  element  WAS  LESS  THAN  OP  DELS 

EQUAL  TO  THE  INTERNAL  TOLERANCE  EPS  TIMES  DELS 
ABSOLUTELY  GREATEST  MAIN  DIAGONAL  DELS 

ELEMENT  OF  MATRIX  A.  DELS 

AUX  - DOUBLE  PRECISION  AUXILIARY  STORAGE  ARRAY  DELS 

WITH  DIMENSION  M-1.  DELS 

DELS 

remarks  dels 

UPPER  triangular  PART  OF  "ATRIX  A IS  ASSUMED  TO  BE  STORED  DELS 
COLUMNWISE  IN  M«(m+1)/2  SUCCESSIVE  STORAGE  LOCATIONS,  RIGHT  DELS 
HAND  SIDE  matrix  R COLUMNWISE  IN  N*M  SUCCESSIVE  STORAGE  DELS 

LOCATIONS.  ON  RETURN  SOLUTION  MATRIX  R IS  STORED  COLUMNWISE  DELS 
TOO.  DELS 

THE  PROCEDURE  GIVES  RESULTS  IF  THE  NUMBER  OF  EQUATIONS  M IS  DELS 
GREATER  THAN  0 AND  PIVOT  ELEMENTS  AT  ALL  'E L I M I N AT ION  STEPS  DELS 
ARE  DIFFERENT  FROM  0.  HOWEVER  WARNING  IER>K  - IF  GIVEN  - DELS 
INDICATES  POSSIBLE  LOSS  OF  SIGNIFICANCE.  IN  CASE  OF  A WELL  DELS 
scaled  matrix  a and  APPROorIATE  tolerance  EPS,  IER«K  MAY  BE  DELS 
interpreted  that  matrix  a has  the  rank  k.  no  warning  is  dels 
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52  C 

53  C 

54  C 

55  C 

56  C 

57  C 

58  C 

59  C 

60  C 

61  C 

62  C 

63  C 

64  C 

65  C 
06  C 

67  C 

68  C 

69  C 

70 

71 

72 

73  C 

74  C 

75 

76 

77 

78 

79 
SO 
81 
82 

83 

84 

85 

86 

37  C 

88  C 

89  C 

90  C 

91  C 

92 

93 

94 

95 

96  C 

97  C 

98 

99 
100 
101 
102 
103 


GIVEN  IN  CASE  M=1.  DELS 

ERROR  PARAMETER  IER=-1  DOES  NOT  NECESSARILY  MEAN  THAT  DELS 

MATRIX  A IS  SINGULAR,  AS  ONLY  MAIN  DIAGONAL  ELEMENTS  DELS 

ARE  USED  AS  PIVOT  ELEMENTS.  POSSIPLY  SUBROUTINE  DGELG  (WHICHDELS 
WORKS  WITH  TOTAL  PIVOTING)  WOULD  BE  ABLE  TO  FIND  A SOL UT ION . DE LS 

DELS 

SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED  DELS 

NONE  DELS 

DELS 

MtTHOD  DELS 

SOLUTION  IS  DONE  BY  MEANS  OF  6 AUS S -EL  I M I N AT  I ON  WITH  DELS 

PIVOTING  IN  MAIN  DIAGONAL,  IN  ORDER  TO  PRESERVE  DELS 

SYMMETRY  IN  REMAINING  COEFFICIENT  MATRICES.  DELS 


DELS 

DELS 

DELS 

DELS 

DELS 


DIMENSION  A(1 ) ,P ( 1) , AUX ( 1)  DELS 

DOUBLE  PRECISION  R , A , AU X , P I V , TB , TOL , P I V 1 DELS 

IF(m)24,24,1  dels 

DELS 

SEARCH  FOR  GREATEST  MAIN  DIAGONAL  ELEMENT  DELS 

1 IER=u  dels 

piv=l.do  dels 

L=0  DELS 

DP  T ic  = 1,M  dels 

L=L+K  DELS 

TP  = D*.DS  ( A (L)  ) DELS 

IF(Tt-PIV)3,3,2  DELS 

2 PIV=TB  DELS 

I*L  DELS 

J»IC  DELS 

3 CONTINUE  DELS 

TOL*tPS*PIV  DELS 

MAIN  DIAGONAL  ELEMENT  A(I)=A(J,J)  IS  FIRST  PIVOT  ELEMENT.  DELS 

PIV  CONTAINS  THE  ABSOLUTE  VALUE  OF  A(I).  DELS 

DELS 

DELS 

start  ELIMINATION  LOOP  DELS 

LST=t  dels 

NM»N*M  DELS 

LENO*«-t  DELS 

DO  1c  11*1, M dels 

DELS 

TEST  ON  USEFULNESS  OF  SYMMETRIC  ALGORITHM  DELS 

IF(PIV)24,24,4  dels 

4 IF(IcK)7,S,7  dels 

5 IF(P1V-T0L)6,6,7  dels 

6 IER*A-1  DELS 

7 lt»j-k  dels 

lst»lst4k  dels 
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104 

C 

DELS 

105 

c 

PIVOT  SOW  SEDUCTION  AND  ROW 

INTERCHANGE  IN  RIGHT  HAND 

SIDE  R 

DELS 

106 

PIVI=1.D0/A(I) 

DELS 

107 

DO  P L=K  ,NM ,M 

DELS 

103 

LL=L*LT 

DELS 

109 

T9=PIV1*R{LL) 

DELS 

110 

R(LL)=R(L) 

DELS 

111 

8 

R (L )=Te 

DELS 

112 

c 

DELS 

115 

c 

IS  ELIMINATION  TERMINATED 

DELS 

114 

I F(K-M)C,19,19 

DELS 

115 

c 

DELS 

116 

c 

ROW  AND  COLUMN  INTERCHANGE  AND  PIVOT 

ROW  REDUCTION  IN 

MATRIX  A. 

DELS 

117 

c 

ELE^'ENTS  OF  PIVOT  COLUMN  ARE 

SAVED  IN 

AUXILIARY  VECTOR 

AUX  . 

DELS 

113 

9 

LR=LST+(LT*(K>J-1))/2 

DELS 

119 

LL  = Lk 

DELS 

120 

1- 

M 

DELS 

121 

DO  14  II=K,LEND 

DELS 

122 

L=L'»II 

DELS 

123 

LL=LL+1 

DELS 

124 

IF(L-LR)12,10,11 

DELS 

125 

10 

A(LL)=A{LST) 

DELS 

126 

TP  = A 

DELS 

127 

60  To  13 

DELS 

128 

11 

LL=L+LT 

DELS 

129 

12 

tp*a{ll) 

DELS 

130 

A(LL)=A(L) 

DELS 

131 

13 

AUX ( 1 1 ) = T& 

DELS 

132 

14 

A(L  ) = PIV  I«TB 

DELS 

133 

c 

DELS 

134 

c 

SAVE  COLUMN  interchange  INFORMATION 

DELS 

135 

A(LST)*LT 

DELS 

136 

c 

DELS 

137 

c 

ELEMtNT  REDUCTION  AND  SEARCH 

FOR  NEXT 

PIVOT 

DELS 

138 

PIV=O.00 

DELS 

139 

llst*lst 

DELS 

140 

LT*n 

DELS 

141 

DO  U II=K,L£ND 

DELS 

142 

PIVI=-AUX(II) 

DELS 

143 

LL*LLST 

DELS 

144 

LT»LT*1 

DELS 

145 

DO  15  LLD=II,LEND 

DELS 

146 

LL»LL*LLD 

DELS 

147 

L«LL*LT 

DELS 

U8 

15 

A(L)*A(L)^PIVI*A (LL) 

DELS 

149 

LLST«LLST^I I 

DELS 

150 

lr*llst+lt 

DELS 

151 

TB*0A9S(A<LR>> 

DELS 

152 

IF<Tfa-PIV)17,17,16 

DELS 

153 

16 

PIV*TD 

DELS 

154 

I»LR 

DELS 

155 

J«I !♦! 

DELS 
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156 

17 

00  1o  LR=K 

DELS 

157 

LL*LR*LT 

DELS 

153 

13 

R{LL)=R(LL)+P1VI*R(LR) 

DELS 

159 

C 

END  Of  ELIMINATION  LOOP 

DELS 

160 

C 

DELS 

161 

C 

DELS 

162 

C 

BACK  SUBSTITUTION  AND  BACK  INTERCHANGE 

DELS 

163 

19 

IF(LcN0)24,23,2C 

DELS 

164 

20 

II=M 

DELS 

165 

00  2t  I=2tM 

DELS 

166 

LST=LST-II 

DELS 

167 

11=11-1 

DELS 

163 

L=A(lST)4,500 

DELS 

169 

00  ’2  J = II,NM,»' 

DELS 

170 

TP  = P ( J ) 

DELS 

171 

LL=J 

DELS 

172 

K=LST 

DELS 

173 

00  21  lt=ii,leno 

DELS 

174 

LL=LL4l 

DELS 

175 

K=K4LT 

DELS 

176 

21 

TP=Tfa-A{K)*R(LL) 

DELS 

177 

K=J  ♦L 

DELS 

173 

R( J ) = P (K  ) 

DELS 

179 

22 

PfK )=TB 

DELS 

160 

23 

RETURN 

DELS 

131 

C 

DELS 

162 

C 

DELS 

163 

C 

ERROR  RETURN 

DELS 

134 

24 

IFR=-1 

DELS 

135 

return 

DELS 

186 
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180 


M0RfITT*INVFRT(1). CLINES 


1 

SUBROUTINE  CLIN  EG  (A,  B.  X,  N, 

00000 

2 

i N 0I^',  IFLAGt  ERR) 

00000 

3 

C 

00000 

4 

C 

CLIN  EG  USES  L-U  DECOMPOSITION  TO 

00000 

5 

C 

FIND  ThE  triangular  MATRICES  L»  U 

ooooc 

6 

C 

SUCH  THAT  L * U = A.  L AND  U ARE 

00000 

7 

C 

STORED  IN  A.  THIS  FORM  IS  USED  WITH 

00000 

3 

c 

BACE-SUE’ST  ITUTION  TO  FIND  THE  SOLN 

00000 

Q 

c 

XOF  A*X=L*U*X=9. 

00000 

10 

c 

N IS  the  number  OF  EQUATIONS  AND 

00001 

11 

c 

N DIM  IS  the  DIMENSION  OF  ALL  ARRAYS 

00001 

12 

c 

IN  The  parameter  list. 

00001 

13 

c 

00001 

U 

c 

IF  IFIAG  = 0,  L,  U,  and  X ARE 

00001 

15 

c 

computed. 

00001 

16 

c 

IF  IFLAG  IS  NON-ZERO,  IT  IS  ASSUMED 

00001 

17 

c 

THAT  L AND  U HAVE  BEEN  COMPUTED  IN 

00001 

ie 

c 

A PREVIOUS  CALL  AND  ARE  STILL  STORED 

00001 

19 

c 

IN  A.  THUS  ONLY  X IS  COMOUTEO. 

00001 

2G 

c 

ERR  IS  the  estimated  REI’Tive 

00002 

21 

c 

ERROR  OF  The  SOLUTION  VECt^i". 

00002 

22 

r 

00002 

23 

C0MPLEX*1t  A,  R,  X,  T 

00002 

24 

c 

INTFoEfi»2  IfiOW 

TJM02 

25 

INTF0ER«4  IROH 

TJM02 

26 

DIMENSION  A(N  Cir,  N DIM), 

00002 

27 

1 D(.J  DIN),  X(N  DIM) 

00002 

2? 

DIMENSION  IROWISO),  0(40) 

00002 

29 

DATA  EPS  /1.0E-15/ 

00002 

3D 

c 

00002 

31 

c 

00003 

32 

IF  (N.GT.5J)  GO  TC.  9 CO 

00003 

33 

IF  (IFLAG. NE.O)  GO  TO  600 

00003 

34 

DO  OSO  I » 1,N 

00003 

35 

0(1)  = ('.0 

00003 

36 

DO  C-0  J = 1,N 

00003 

37 

00  > CDABS  (A(I,J)) 

00003 

33 

U4C  IF  (g(I).LT.QO)  0(1)  s 00 

C0003 

39 

IF  (U(I).EO.C.())  GO  TO  901 

00003 

43 

05C  CONTINUE 

00003 

41 

ERR  » EPS 

00004 

42 

PPIV  » ^-.0 

00004 

43 

DC  ’L'C  I * 1,N 

00004 

44 

ICC  IROW(I)  * I 

00004 

45 

c 

00004 

46 

DP  5hC  L » 1,N 

00004 

47 

PIVOT  » C.u 

00004 

48 

K * L - 1 

00004 

49 

DO  24G  I « L,N 

00004 

50 

I'  (K.LT.1)  GO  TO  23C 

00004 

51 

00  J » 1,X 

00005 

181 


1 


52 

220 

= A(I,L)  - *fJ,L)  * 

0000 

53 

23C 

F = CDA6S  (Ad  ,L  ) } / 0(1) 

0000 

54 

IF  (F’l  V0T.6T.F ) fO  TO  240 

0000 

55 

PIVOT  = F 

0000 

56 

NPIVOT  * I 

0000 

57 

240 

CONTINUE 

0000 

53 

IF  (PIVOT. £0.0.0)  60  TO  9C1 

0000 

59 

IF  (PPIV.LE. PIVOT)  60  TO  250 

0000 

63 

ERR  = ERR  * PPIV  / PIVOT 

0000 

61 

IF  (ERR. 6E. 1.0)  GO  TO  901 

0000 

62 

250 

PPIV  * PIVOT 

0000 

63 

IF  (NPIVOT. EO.L)  GO  TO  28C 

0000 

64 

Q(NPiVOT)  = Q(L) 

0000 

65 

J s IROW(L) 

0000 

66 

IROW(L)  = IROW(NPIVOT) 

0000 

67 

IROKNPIVOT)  * J 

0000 

68 

DO  2c,C  I = 1,N 

0000 

69 

T = A(L,I) 

0000 

70 

A(L  ,1  ) = A (NPIVOT  ,1) 

0000 

71 

A(NPIVOT,I)  * T 

0000 

72 

260 

CONTINUE 

0000 

73 

2P0 

IF  (L.EO.N)  GO  TO  520 

0000 

74 

T = (1  .('OO.O.OOO)  / A(L,L) 

0000 

75 

K * L ♦ 1 

0000 

76 

H 

1 

0000 

77 

DO  450  I = IC,N 

0000 

73 

IF  (^,.LT  .1  ) GO  TO  4CC 

0000 

79 

DO  !5C  J = 1.l» 

0000 

SC 

350 

A(L.I)  = A(Ltl)  - A(L,J)  * A(J,I) 

0000 

61 

<.00 

A(L  ,1  ) = T * A (L  , I) 

0000 

82 

<.5C 

continue 

0000 

63 

500 

continue 

0000 

84 

IF  (ERR. GT.1. 06-5)  PRINT  998,  cRR 

0000 

e5 

C 

0000 

86 

C 

0000 

87 

6?0 

DO  6cC  I s 2,N 

0000 

88 

62U 

X(I)  3 ( O.OdO.C.OdG) 

0000 

89 

J > IROW(I) 

0000 

90 

X(1)  « B(J)  / A(1  ,1) 

0000 

91 

DO  7|.C  I « 2,N 

0000 

92 

J s IROW(I) 

0000 

93 

K « I - 1 

0000 

94 

DO  650  L » 1.K 

0000 

95 

650 

X(I  ) > X(I)  * Ad  ft)  * X(L) 

0000 

96 

X(I)  « (P(J)  - X(l))  / A(I,I) 

0000 

97 

700 

CONTINUE 

0000 

98 

K « N - 1 

0000 

99 

00  PuU  I * 1*K 

0000 

100 

J ■ N - I 

0000 

101 

W « J ♦ 1 

0001 

1b2 

DO  RuO  L « MfN 

0001 

103 

X(J)  * X(J)  - X(L)  • A(J,L) 

0001 

r 


104 

fiOO 

continue 

0001 

1u5 

RETUKN 

0001 

1u6 

c 

0001 

1J7 

900 

PPIM  999 

0001 

UR 

EPP  = 1.0 

0001 

U9 

RETUKN 

0001 

110 

901 

PPINI  997 

0001 

111 

E P R = 1.0 

cool 

112 

PFTUkN 

0001 

113 

997 

EOR'»aT  ('ItRROR 

IN  CLIN  EQ,  MATRIX  IS  SINGULAR') 

0001 

114 

998 

EOfiPAT  ('  caution-', 

0001 

115 

1 

' clin  eq  has 

DECOMPOSED  AN  ILL-CONDITIONED  MATRIX.',/, 

0001 

116 

1 

' rlsults  will 

HAVE  RELATIVE  ERROR  =',E11.2) 

0001 

117 

999 

FORHaT  ('IERROR 

IN  CLIN  EQ,  MATRIX  SIZE  GREATER  THAN  5C') 

0001 

113 

END 

0001 

PRT.S  INVtRT .OVCHk 


HORFITT*1NVE(<T(1).OVCHK 

1 SUBROUTINE  OVCHK  (CALLER, STrT)  OWP 

2 C *•••*  THIS  SUBROUTINE  WILL  CALL  THE  ROUTINE  OVUNFL  WHICH  OHP 

3 c *****  CHECKS  FOR  OVERFLOW  AND  UNDERFLOW.  THE  ROUTINE  RETURNS  AN  ONP 

4 C *****  INTE(,ER  VALUE  WHICH  TELLS  WHETHER  OVERFLOW  AND/OR  UNDERFLOW  OPP 

5 c *****  HAVE  OCCURRED  SINCE  THE  PROGRAM  STARTED  OR  SINCE  THE  LAST  TIME  DMP 

6 C *****  ONt  OF  The  overflow/underflow  CHECKING  ROUTINES  WAS  CALLED,  DMP 

7 C *****  WHICHEVER  HAS  BEEN  PORE  RECENT.  THE  INTEGER  VALUES  RETURNED  DMP 

8 C *****  AND  THEIR  MEANINGS  ARE  AS  FOLLOWS:  DMP 

9 c *****  1=  OVERFLOW  ONLY  DMP 

•j:)  C *****  ?=  NO  OVERFLOW  CR  UNDERFLOW  DMP 

11  c *****  3=  UNDERFLOW  ONLY  DMP 

12  c *****  OVERFLOW  AND  UNDERFLOW  DMP 

13  c *****  THIS  SUBROUTINE  (OVCHK)  WILL  PRINT  OUT  A MESSAGE  STATING  DMP 

U C *****  whether  OVERFLOW  HAS  OR  HAS  NOT  OCCURRED.  FOR  PURPOSES  DMP 

15  C *****  OF  THIS  CONVERSION,  UNDERFLOW  OCCURRENCES  HAVE  BEEN  IGNORED  DMP 

16  C *****  BECAUSE  THE  1110  TAKES  THE  SAME  ACTION  (I.E.  SETS  THE  RESULT  DMP 

17  c *****  TC  ZERO)  IN  THE  CASE  OF  UNDERFLOW  AS  DOES  THE  360.  DMP 

18  c *****  the  SUBROUTINE  ALSO  PRINTS  OUT  THE  NAME  OF  THE  CALLING  DMP 

19  c *****  ROUTINE  (VARIABLE  'CALLER')  AND  THE  STATEMENT  NUMBER  FROM  DMP 

20  C *****  WHICH  IT  WAS  CALLED  (VARIABLE  'STMT')  DMp 

21  CHAPACTFR*6  CALLER  DMP 

22  INTEGER  STMT  DMP 

25  CALL  OVUNFL(IOVFL)  DMP 

24  IF  (lOVFL  .EO.  < .OR.  IOVFl  .E8.  4)  GO  TO  15C  DMP 

25  WRITE  (6,100)  DMP 

26  ICC  format  ('IOVERFLOw  HAS  NOT  OCCURRED')  DMP 

2T  C-0  TC  2 50  DMP 

28  15C  WRITc  (6,200)  DMP 

21  200  format  ('IOVERFLOW  HAS  OCCURRED')  DMP 

30  250  continue  DMP 

31  WRITE  ((,3j0)  stmt, caller  DMP 

32  300  FORMAT  ('  OVCHK  WAS  CALLED  FROM  STATEMENT  ',I5,'  IN  SUBROUTINE  DMP 

33  1 ,A6)  DMP 

34  PETURN  DMP 

35  end  DMP 


SFIN 


184 


